|
1000
|
It is possible to clip the bar's caption to bar, when the time scale is changed
Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 48
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 48"
var_Chart.FirstVisibleDate = {12/27/2000}
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.Pattern = 32
var_Bar.Height = 13
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/02/2001},{01/06/2001},"K1","This is a bit of text that get's clipped")
' var_Items.ItemBar(h,"K1",4) = 4
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K1`,4) = 4"
' var_Items.ItemBar(h,"K1",6) = var_Items.ItemBar(h,"K1",3)
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K1`,6) = ItemBar(h,`K1`,3)"
h = var_Items.AddItem("Task 2")
var_Items.AddBar(h,"Task",{01/02/2001},{01/06/2001},"K1","This is a bit of text that is not clipped")
' var_Items.ItemBar(h,"K1",4) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K1`,4) = 1"
|
|
999
|
How can I change the color for all bars with the key matching a pattern
Dim h as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
' oG2antt.Chart.PaneWidth(.f.) = 64
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
oG2antt.Debug = .t.
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/02/2001},{01/04/2001},"A")
var_Items.AddBar(h,"Task",{01/05/2001},{01/07/2001},"B1")
var_Items.AddBar(h,"Task",{01/08/2001},{01/17/2001},"B2")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{01/02/2001},{01/04/2001},"K3")
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",{01/02/2001},{01/04/2001},"B4")
' var_Items.ItemBar(0,"<B*>",33) = 255
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemBar(0,`<B*>`,33) = 255"
|
|
998
|
How can I change the color for all bars in the same item with the key matching a pattern
Dim h as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
' oG2antt.Chart.PaneWidth(.f.) = 64
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
oG2antt.Debug = .t.
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/02/2001},{01/04/2001},"A")
var_Items.AddBar(h,"Task",{01/05/2001},{01/07/2001},"B1")
var_Items.AddBar(h,"Task",{01/08/2001},{01/17/2001},"B2")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{01/02/2001},{01/04/2001},"K3")
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",{01/02/2001},{01/04/2001},"K4")
' var_Items.ItemBar(h,"<B*>",33) = 255
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`<B*>`,33) = 255"
|
|
997
|
How can I change the color for all bars in the same item
Dim h as N
Dim oG2antt as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/02/2001},{01/04/2001},"K1")
var_Items.AddBar(h,"Task",{01/05/2001},{01/07/2001},"K2")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{01/02/2001},{01/04/2001},"K3")
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",{01/02/2001},{01/04/2001},"K4")
' var_Items.ItemBar(h,"<*>",33) = 255
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`<*>`,33) = 255"
|
|
996
|
How can I write a special number for each date related to a bar
Dim h as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
Dim var_Note as P
Dim var_Note1 as P
Dim var_Note2 as P
Dim var_Note3 as P
Dim var_Note4 as P
Dim var_Note5 as P
Dim var_Notes as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2001}
' var_Chart.PaneWidth(.f.) = 32
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 32"
var_Chart.LevelCount = 2
var_Items = oG2antt.Items
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",{01/02/2001},{01/13/2001},"1")
var_Notes = oG2antt.Chart.Notes
var_Note = var_Notes.Add("N1",oG2antt.Items.FirstVisibleItem,"1","")
var_Note.RelativePosition = "S+2"
' var_Note.PartText(0) = "4"
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartText(0) = `4`"
' var_Note.PartFixedWidth(0) = 18
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartFixedWidth(0) = 18"
' var_Note.PartHOffset(0) = -9
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartHOffset(0) = -9"
' var_Note.PartBackColor(0) = 65535
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartBackColor(0) = 65535"
var_Note.ShowLink = 0
' var_Note.PartVisible(0) = .t.
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartVisible(0) = True"
var_Note1 = var_Notes.Add("N2",oG2antt.Items.FirstVisibleItem,"1","")
var_Note1.RelativePosition = "S+3"
' var_Note1.PartText(0) = "4"
oG2antt.TemplateDef = "dim var_Note1"
oG2antt.TemplateDef = var_Note1
oG2antt.Template = "var_Note1.PartText(0) = `4`"
' var_Note1.PartFixedWidth(0) = 18
oG2antt.TemplateDef = "dim var_Note1"
oG2antt.TemplateDef = var_Note1
oG2antt.Template = "var_Note1.PartFixedWidth(0) = 18"
' var_Note1.PartHOffset(0) = -9
oG2antt.TemplateDef = "dim var_Note1"
oG2antt.TemplateDef = var_Note1
oG2antt.Template = "var_Note1.PartHOffset(0) = -9"
' var_Note1.PartBackColor(0) = 65535
oG2antt.TemplateDef = "dim var_Note1"
oG2antt.TemplateDef = var_Note1
oG2antt.Template = "var_Note1.PartBackColor(0) = 65535"
var_Note1.ShowLink = 0
' var_Note1.PartVisible(0) = .t.
oG2antt.TemplateDef = "dim var_Note1"
oG2antt.TemplateDef = var_Note1
oG2antt.Template = "var_Note1.PartVisible(0) = True"
var_Note2 = var_Notes.Add("N3",oG2antt.Items.FirstVisibleItem,"1","")
var_Note2.RelativePosition = "S+4"
' var_Note2.PartText(0) = "5"
oG2antt.TemplateDef = "dim var_Note2"
oG2antt.TemplateDef = var_Note2
oG2antt.Template = "var_Note2.PartText(0) = `5`"
' var_Note2.PartFixedWidth(0) = 18
oG2antt.TemplateDef = "dim var_Note2"
oG2antt.TemplateDef = var_Note2
oG2antt.Template = "var_Note2.PartFixedWidth(0) = 18"
' var_Note2.PartHOffset(0) = -9
oG2antt.TemplateDef = "dim var_Note2"
oG2antt.TemplateDef = var_Note2
oG2antt.Template = "var_Note2.PartHOffset(0) = -9"
' var_Note2.PartBackColor(0) = 65280
oG2antt.TemplateDef = "dim var_Note2"
oG2antt.TemplateDef = var_Note2
oG2antt.Template = "var_Note2.PartBackColor(0) = 65280"
var_Note2.ShowLink = 0
' var_Note2.PartVisible(0) = .t.
oG2antt.TemplateDef = "dim var_Note2"
oG2antt.TemplateDef = var_Note2
oG2antt.Template = "var_Note2.PartVisible(0) = True"
var_Note3 = var_Notes.Add("N4",oG2antt.Items.FirstVisibleItem,"1","")
var_Note3.RelativePosition = "S+5"
' var_Note3.PartText(0) = "5"
oG2antt.TemplateDef = "dim var_Note3"
oG2antt.TemplateDef = var_Note3
oG2antt.Template = "var_Note3.PartText(0) = `5`"
' var_Note3.PartFixedWidth(0) = 18
oG2antt.TemplateDef = "dim var_Note3"
oG2antt.TemplateDef = var_Note3
oG2antt.Template = "var_Note3.PartFixedWidth(0) = 18"
' var_Note3.PartHOffset(0) = -9
oG2antt.TemplateDef = "dim var_Note3"
oG2antt.TemplateDef = var_Note3
oG2antt.Template = "var_Note3.PartHOffset(0) = -9"
' var_Note3.PartBackColor(0) = 65280
oG2antt.TemplateDef = "dim var_Note3"
oG2antt.TemplateDef = var_Note3
oG2antt.Template = "var_Note3.PartBackColor(0) = 65280"
var_Note3.ShowLink = 0
' var_Note3.PartVisible(0) = .t.
oG2antt.TemplateDef = "dim var_Note3"
oG2antt.TemplateDef = var_Note3
oG2antt.Template = "var_Note3.PartVisible(0) = True"
var_Note4 = var_Notes.Add("N5",oG2antt.Items.FirstVisibleItem,"1","")
var_Note4.RelativePosition = "S+6"
' var_Note4.PartText(0) = "8"
oG2antt.TemplateDef = "dim var_Note4"
oG2antt.TemplateDef = var_Note4
oG2antt.Template = "var_Note4.PartText(0) = `8`"
' var_Note4.PartFixedWidth(0) = 18
oG2antt.TemplateDef = "dim var_Note4"
oG2antt.TemplateDef = var_Note4
oG2antt.Template = "var_Note4.PartFixedWidth(0) = 18"
' var_Note4.PartHOffset(0) = -9
oG2antt.TemplateDef = "dim var_Note4"
oG2antt.TemplateDef = var_Note4
oG2antt.Template = "var_Note4.PartHOffset(0) = -9"
' var_Note4.PartBackColor(0) = 255
oG2antt.TemplateDef = "dim var_Note4"
oG2antt.TemplateDef = var_Note4
oG2antt.Template = "var_Note4.PartBackColor(0) = 255"
var_Note4.ShowLink = 0
' var_Note4.PartVisible(0) = .t.
oG2antt.TemplateDef = "dim var_Note4"
oG2antt.TemplateDef = var_Note4
oG2antt.Template = "var_Note4.PartVisible(0) = True"
var_Note5 = var_Notes.Add("Z",oG2antt.Items.FirstVisibleItem,"1","")
var_Note5.RelativePosition = "E"
' var_Note5.PartText(0) = "4"
oG2antt.TemplateDef = "dim var_Note5"
oG2antt.TemplateDef = var_Note5
oG2antt.Template = "var_Note5.PartText(0) = `4`"
' var_Note5.PartFixedWidth(0) = 18
oG2antt.TemplateDef = "dim var_Note5"
oG2antt.TemplateDef = var_Note5
oG2antt.Template = "var_Note5.PartFixedWidth(0) = 18"
' var_Note5.PartHOffset(0) = -9
oG2antt.TemplateDef = "dim var_Note5"
oG2antt.TemplateDef = var_Note5
oG2antt.Template = "var_Note5.PartHOffset(0) = -9"
' var_Note5.PartBackColor(0) = 33023
oG2antt.TemplateDef = "dim var_Note5"
oG2antt.TemplateDef = var_Note5
oG2antt.Template = "var_Note5.PartBackColor(0) = 33023"
' var_Note5.PartCanMove(0) = .t.
oG2antt.TemplateDef = "dim var_Note5"
oG2antt.TemplateDef = var_Note5
oG2antt.Template = "var_Note5.PartCanMove(0) = True"
var_Note5.ShowLink = 0
' var_Note5.PartVisible(0) = .t.
oG2antt.TemplateDef = "dim var_Note5"
oG2antt.TemplateDef = var_Note5
oG2antt.Template = "var_Note5.PartVisible(0) = True"
oG2antt.EndUpdate()
|
|
995
|
How can I assign a note to be always in the center of the bar
Dim h as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Items as P
Dim var_Note as P
Dim var_Notes as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
' oG2antt.Chart.PaneWidth(.f.) = 96
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/05/2001},{01/08/2001},"1")
var_Notes = oG2antt.Chart.Notes
var_Note = var_Notes.Add("Note",oG2antt.Items.FirstVisibleItem,"1","")
var_Note.RelativePosition = 0.5
' var_Note.PartText(0) = "note<br>center"
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartText(0) = `note<br>center`"
' var_Note.PartBackColor(0) = 65535
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartBackColor(0) = 65535"
' var_Note.PartVisible(1) = .f.
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartVisible(1) = False"
var_Note.ShowLink = 0
oG2antt.EndUpdate()
|
|
994
|
How can I assign a note relative to the start of the bar, and let it be movable
Dim h as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Items as P
Dim var_Note as P
Dim var_Notes as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
' oG2antt.Chart.PaneWidth(.f.) = 96
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/05/2001},{01/08/2001},"1")
var_Notes = oG2antt.Chart.Notes
var_Note = var_Notes.Add("Note",oG2antt.Items.FirstVisibleItem,"1","")
var_Note.RelativePosition = "S+1"
' var_Note.PartText(0) = "<%d%>"
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartText(0) = `<%d%>`"
' var_Note.PartFixedWidth(0) = 18
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartFixedWidth(0) = 18"
' var_Note.PartHOffset(0) = 9
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartHOffset(0) = 9"
' var_Note.PartCanMove(0) = .t.
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartCanMove(0) = True"
' var_Note.PartBackColor(0) = 65535
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartBackColor(0) = 65535"
' var_Note.PartVisible(1) = .f.
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartVisible(1) = False"
var_Note.ShowLink = 0
oG2antt.EndUpdate()
|
|
993
|
How can I associate a note relative to the start of the bar
Dim h as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Items as P
Dim var_Note as P
Dim var_Notes as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
' oG2antt.Chart.PaneWidth(.f.) = 96
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/05/2001},{01/08/2001},"1")
var_Notes = oG2antt.Chart.Notes
var_Note = var_Notes.Add("Note",oG2antt.Items.FirstVisibleItem,"1","")
var_Note.RelativePosition = "S+1"
' var_Note.PartText(0) = "<%d%>"
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartText(0) = `<%d%>`"
' var_Note.PartFixedWidth(0) = 18
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartFixedWidth(0) = 18"
' var_Note.PartHOffset(0) = 9
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartHOffset(0) = 9"
' var_Note.PartBackColor(0) = 65535
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartBackColor(0) = 65535"
' var_Note.PartVisible(1) = .f.
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartVisible(1) = False"
var_Note.ShowLink = 0
oG2antt.EndUpdate()
|
|
992
|
How can I associate a note relative to the end of the bar, so if the bar is resized at the end, the not is moved accordingly
Dim h as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Items as P
Dim var_Note as P
Dim var_Notes as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
' oG2antt.Chart.PaneWidth(.f.) = 96
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/05/2001},{01/08/2001},"1")
var_Notes = oG2antt.Chart.Notes
var_Note = var_Notes.Add("Note",oG2antt.Items.FirstVisibleItem,"1","")
var_Note.RelativePosition = "E-1"
' var_Note.PartText(0) = "<%d%>"
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartText(0) = `<%d%>`"
' var_Note.PartFixedWidth(0) = 18
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartFixedWidth(0) = 18"
' var_Note.PartHOffset(0) = 9
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartHOffset(0) = 9"
' var_Note.PartVisible(1) = .f.
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartVisible(1) = False"
var_Note.ShowLink = 0
oG2antt.EndUpdate()
|
|
991
|
How can I associate a note relative to the end of the bar, so if the bar is resized at the end, the not is moved accordingly
Dim h as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Items as P
Dim var_Note as P
Dim var_Notes as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
' oG2antt.Chart.PaneWidth(.f.) = 96
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/05/2001},{01/08/2001},"1")
var_Notes = oG2antt.Chart.Notes
var_Note = var_Notes.Add("Note",oG2antt.Items.FirstVisibleItem,"1","")
var_Note.RelativePosition = 1
' var_Note.PartText(0) = "End"
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartText(0) = `End`"
' var_Note.PartVisible(1) = .f.
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartVisible(1) = False"
var_Note.ShowLink = 0
oG2antt.EndUpdate()
|
|
990
|
How can I hide a bar without removing it
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2001}
' var_Chart.PaneWidth(.f.) = 128
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 128"
var_Chart.LevelCount = 2
oG2antt.HeaderVisible = 1
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001},"B1")
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",{01/06/2001},{01/14/2001},"B2")
var_Items.AddLink("L1",var_Items.FindItem("Item 1",0),"B1",var_Items.FindItem("Item 2",0),"B2")
' var_Items.ItemBar(var_Items.FirstVisibleItem,var_Items.FirstItemBar(var_Items.FirstVisibleItem),19) = 100
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemBar(FirstVisibleItem,FirstItemBar(FirstVisibleItem),19) = 100"
oG2antt.EndUpdate()
|
|
989
|
How can I align the caption in the note
Dim h as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Items as P
Dim var_Note as P
Dim var_Note1 as P
Dim var_Notes as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
' oG2antt.Chart.PaneWidth(.f.) = 96
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/05/2001},{01/08/2001},"1")
var_Notes = oG2antt.Chart.Notes
var_Note = var_Notes.Add("N1",oG2antt.Items.FirstVisibleItem,"1","")
var_Note.ShowLink = 0
' var_Note.PartVisible(1) = .f.
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartVisible(1) = False"
' var_Note.PartText(0) = "S <b><%dd%></b>"
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartText(0) = `S <b><%dd%></b>`"
' var_Note.PartFixedWidth(0) = 48
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartFixedWidth(0) = 48"
' var_Note.PartAlignment(0) = 0
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartAlignment(0) = 0"
' var_Note.PartVOffset(0) = 17
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartVOffset(0) = 17"
var_Note1 = var_Notes.Add("N2",oG2antt.Items.FirstVisibleItem,"1","")
var_Note1.RelativePosition = 1
var_Note1.ShowLink = 0
' var_Note1.PartVisible(1) = .f.
oG2antt.TemplateDef = "dim var_Note1"
oG2antt.TemplateDef = var_Note1
oG2antt.Template = "var_Note1.PartVisible(1) = False"
' var_Note1.PartText(0) = "E <b><%dd%></b>"
oG2antt.TemplateDef = "dim var_Note1"
oG2antt.TemplateDef = var_Note1
oG2antt.Template = "var_Note1.PartText(0) = `E <b><%dd%></b>`"
' var_Note1.PartFixedWidth(0) = 48
oG2antt.TemplateDef = "dim var_Note1"
oG2antt.TemplateDef = var_Note1
oG2antt.Template = "var_Note1.PartFixedWidth(0) = 48"
' var_Note1.PartAlignment(0) = 2
oG2antt.TemplateDef = "dim var_Note1"
oG2antt.TemplateDef = var_Note1
oG2antt.Template = "var_Note1.PartAlignment(0) = 2"
' var_Note1.PartVOffset(0) = 17
oG2antt.TemplateDef = "dim var_Note1"
oG2antt.TemplateDef = var_Note1
oG2antt.Template = "var_Note1.PartVOffset(0) = 17"
oG2antt.EndUpdate()
|
|
988
|
How I can assign a note and let user move the note relative to the bar
Dim h as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Items as P
Dim var_Note as P
Dim var_Notes as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
' oG2antt.Chart.PaneWidth(.f.) = 96
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/05/2001},{01/08/2001},"1")
var_Notes = oG2antt.Chart.Notes
var_Note = var_Notes.Add("Note",oG2antt.Items.FirstVisibleItem,"1","End")
' var_Note.PartText(0) = "Day<br> <%dd%>"
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartText(0) = `Day<br> <%dd%>`"
' var_Note.PartCanMove(0) = .t.
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartCanMove(0) = True"
' var_Note.PartVOffset(0) = 16
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartVOffset(0) = 16"
' var_Note.PartTransparency(0) = 30
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartTransparency(0) = 30"
' var_Note.PartToolTip(0) = "Click the note and start moving to a new position."
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartToolTip(0) = `Click the note and start moving to a new position.`"
oG2antt.EndUpdate()
|
|
987
|
How can I assign a picture as a note associated with a bar
Dim h as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Items as P
Dim var_Note as P
Dim var_Note1 as P
Dim var_Notes as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oG2antt.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oG2antt.Template = "HTMLPicture(`pic2`) = `c:\exontrol\images\auction.gif`" // oG2antt.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
oG2antt.AntiAliasing = .t.
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
' oG2antt.Chart.PaneWidth(.f.) = 96
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/05/2001},{01/08/2001},"1")
h = var_Items.AddItem("Task 2")
var_Items.AddBar(h,"Task",{01/07/2001},{01/11/2001},"2")
var_Notes = oG2antt.Chart.Notes
var_Note = var_Notes.Add("1",oG2antt.Items.ItemByIndex(0),"1","<img>pic1</img>")
' var_Note.PartShadow(1) = .f.
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartShadow(1) = False"
' var_Note.PartBorderSize(1) = 0
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartBorderSize(1) = 0"
var_Note.ClearPartBackColor(1)
' var_Note.PartHOffset(1) = -64
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartHOffset(1) = -64"
' var_Note.PartCanMove(1) = .t.
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartCanMove(1) = True"
var_Note1 = var_Notes.Add("2",oG2antt.Items.ItemByIndex(1),"2","<img>pic2</img>")
' var_Note1.PartShadow(1) = .f.
oG2antt.TemplateDef = "dim var_Note1"
oG2antt.TemplateDef = var_Note1
oG2antt.Template = "var_Note1.PartShadow(1) = False"
' var_Note1.PartBorderSize(1) = 0
oG2antt.TemplateDef = "dim var_Note1"
oG2antt.TemplateDef = var_Note1
oG2antt.Template = "var_Note1.PartBorderSize(1) = 0"
var_Note1.ClearPartBackColor(1)
var_Note1.RelativePosition = 1
' var_Note1.PartCanMove(1) = .t.
oG2antt.TemplateDef = "dim var_Note1"
oG2antt.TemplateDef = var_Note1
oG2antt.Template = "var_Note1.PartCanMove(1) = True"
var_Note1.LinkColor = 255
var_Note1.LinkWidth = 2
var_Note1.LinkStyle = 2
var_Note1.ShowLink = 1
oG2antt.EndUpdate()
|
|
986
|
How can I assign a picture as a note associated with a bar
Dim h as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Items as P
Dim var_Note as P
Dim var_Note1 as P
Dim var_Notes as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oG2antt.AntiAliasing = .t.
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
' oG2antt.Chart.PaneWidth(.f.) = 96
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/05/2001},{01/08/2001},"1")
h = var_Items.AddItem("Task 2")
var_Items.AddBar(h,"Task",{01/07/2001},{01/11/2001},"2")
var_Notes = oG2antt.Chart.Notes
var_Note = var_Notes.Add("1",oG2antt.Items.ItemByIndex(0),"1","<img>1</img>")
' var_Note.PartShadow(1) = .f.
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartShadow(1) = False"
' var_Note.PartBorderSize(1) = 0
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartBorderSize(1) = 0"
var_Note.ClearPartBackColor(1)
var_Note1 = var_Notes.Add("2",oG2antt.Items.ItemByIndex(1),"2","<img>2</img>...<img>3</img>")
' var_Note1.PartShadow(1) = .f.
oG2antt.TemplateDef = "dim var_Note1"
oG2antt.TemplateDef = var_Note1
oG2antt.Template = "var_Note1.PartShadow(1) = False"
' var_Note1.PartBorderSize(1) = 0
oG2antt.TemplateDef = "dim var_Note1"
oG2antt.TemplateDef = var_Note1
oG2antt.Template = "var_Note1.PartBorderSize(1) = 0"
var_Note1.ClearPartBackColor(1)
var_Note1.RelativePosition = 1
' var_Note1.PartCanMove(1) = .t.
oG2antt.TemplateDef = "dim var_Note1"
oG2antt.TemplateDef = var_Note1
oG2antt.Template = "var_Note1.PartCanMove(1) = True"
var_Note1.LinkColor = 255
var_Note1.LinkWidth = 2
var_Note1.LinkStyle = 2
oG2antt.EndUpdate()
|
|
985
|
How can I put a box assigned to a DATE
Dim h as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Items as P
Dim var_Note as P
Dim var_Note1 as P
Dim var_Notes as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
' oG2antt.Chart.PaneWidth(.f.) = 96
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Items = oG2antt.Items
h = var_Items.AddItem("Item 1")
h = var_Items.AddItem("Item 2")
var_Notes = oG2antt.Chart.Notes
var_Note = var_Notes.Add("D1",oG2antt.Items.FirstVisibleItem,oG2antt.Chart.FirstVisibleDate,"Date:<br><%dd%>/<%mm%><br><b><%yyyy%></b>")
' var_Note.PartCanMove(1) = .t.
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartCanMove(1) = True"
' var_Note.PartVOffset(1) = 20
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartVOffset(1) = 20"
' var_Note.PartHOffset(1) = 20
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.PartHOffset(1) = 20"
var_Note1 = var_Notes.Add("D2",oG2antt.Items.NextVisibleItem(oG2antt.Items.FirstVisibleItem),{01/07/2001},"Date:<br><%dd%>/<%mm%><br><b><%yyyy%></b>")
' var_Note1.PartVisible(0) = .t.
oG2antt.TemplateDef = "dim var_Note1"
oG2antt.TemplateDef = var_Note1
oG2antt.Template = "var_Note1.PartVisible(0) = True"
' var_Note1.PartText(0) = "<b><%d%></b>"
oG2antt.TemplateDef = "dim var_Note1"
oG2antt.TemplateDef = var_Note1
oG2antt.Template = "var_Note1.PartText(0) = `<b><%d%></b>`"
' var_Note1.PartCanMove(1) = .t.
oG2antt.TemplateDef = "dim var_Note1"
oG2antt.TemplateDef = var_Note1
oG2antt.Template = "var_Note1.PartCanMove(1) = True"
' var_Note1.PartVOffset(1) = 20
oG2antt.TemplateDef = "dim var_Note1"
oG2antt.TemplateDef = var_Note1
oG2antt.Template = "var_Note1.PartVOffset(1) = 20"
' var_Note1.PartHOffset(1) = 20
oG2antt.TemplateDef = "dim var_Note1"
oG2antt.TemplateDef = var_Note1
oG2antt.Template = "var_Note1.PartHOffset(1) = 20"
oG2antt.EndUpdate()
|
|
984
|
How can I add a note or a box associated with a bar
Dim h as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Items as P
Dim var_Note as local
Dim var_Notes as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
' oG2antt.Chart.PaneWidth(.f.) = 96
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/05/2001},{01/08/2001},"1","Center")
' var_Items.ItemBar(h,"1",44) = "left"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`1`,44) = `left`"
' var_Items.ItemBar(h,"1",45) = 16
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`1`,45) = 16"
h = var_Items.AddItem("Task 2")
var_Items.AddBar(h,"Task",{01/07/2001},{01/11/2001},"2","Center")
' var_Items.ItemBar(h,"2",44) = "right"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`2`,44) = `right`"
' var_Items.ItemBar(h,"2",45) = 18
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`2`,45) = 18"
var_Notes = oG2antt.Chart.Notes
var_Notes.Add("1S",oG2antt.Items.FirstVisibleItem,"1","Start")
' var_Notes.Add("1F",oG2antt.Items.FirstVisibleItem,"1","End").RelativePosition = 1
var_Note = var_Notes.Add("1F",oG2antt.Items.FirstVisibleItem,"1","End")
oG2antt.TemplateDef = "dim var_Note"
oG2antt.TemplateDef = var_Note
oG2antt.Template = "var_Note.RelativePosition = 1"
oG2antt.EndUpdate()
|
|
983
|
Is it possible to define different working hours for every week day
Dim h as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
Dim var_Level as P
Dim var_Level1 as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 14
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 14"
var_Chart.NonworkingDays = 0
var_Chart.NonworkingHours = 0
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.LevelCount = 2
var_Level = var_Chart.Level(0)
var_Level.Alignment = 1
var_Level.Label = "<%dddd%>"
var_Level1 = var_Chart.Level(1)
var_Level1.Label = "<%hh%>"
var_Level1.Count = 6
var_Chart.UnitWidth = 16
oG2antt.Columns.Add("")
var_Items = oG2antt.Items
h = var_Items.AddItem(1)
' var_Items.ItemNonworkingUnits(h,.f.) = "weekday(value) != 1 or (weekday(value) = 1 and not ( hour(value) >= 9 and hour(value) <= 14 ))"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemNonworkingUnits(h,False) = `weekday(value) != 1 or (weekday(value) = 1 and not ( hour(value) >= 9 and hour(value) <= 14 ))`"
h = var_Items.AddItem(2)
' var_Items.ItemNonworkingUnits(h,.f.) = "weekday(value) = 2 and ( hour(value) >= 9 and hour(value) <= 14 )"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemNonworkingUnits(h,False) = `weekday(value) = 2 and ( hour(value) >= 9 and hour(value) <= 14 )`"
h = var_Items.AddItem(3)
' var_Items.ItemNonworkingUnits(h,.f.) = "weekday(value) = 3"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemNonworkingUnits(h,False) = `weekday(value) = 3`"
oG2antt.EndUpdate()
|
|
982
|
How can I automatically update the exBarPercent value using a slider control
Dim i as N
Dim oG2antt as P
Dim var_Bar as local
Dim var_Chart as P
Dim var_Column as P
Dim var_Editor as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Items.AllowCellValueToItemBar = .t.
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2002}
' var_Chart.PaneWidth(.f.) = 128
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 128"
' var_Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
var_Bar = var_Chart.Bars.Add("Task%Progress")
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Shortcut = `Percent`"
var_Column = oG2antt.Columns.Add("Percent")
' var_Column.Def(18) = 518
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(18) = 518"
' var_Column.Def(19) = "P"
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(19) = `P`"
var_Items = oG2antt.Items
i = var_Items.AddItem(0)
' var_Items.CellBold(i,0) = .t.
oG2antt.TemplateDef = "dim var_Items,i"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = i
oG2antt.Template = "var_Items.CellBold(i,0) = True"
' var_Items.CellEditor(i,0).EditType = 20
var_Editor = var_Items.CellEditor(i,0)
oG2antt.TemplateDef = "dim var_Editor"
oG2antt.TemplateDef = var_Editor
oG2antt.Template = "var_Editor.EditType = 20"
var_Items.AddBar(i,"Percent",{01/02/2002},{01/06/2002},"P")
' var_Items.ItemBar(i,"P",14) = .t.
oG2antt.TemplateDef = "dim var_Items,i"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = i
oG2antt.Template = "var_Items.ItemBar(i,`P`,14) = True"
' var_Items.CellValue(i,0) = 50
oG2antt.TemplateDef = "dim var_Items,i"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = i
oG2antt.Template = "var_Items.CellValue(i,0) = 50"
oG2antt.EndUpdate()
|
|
981
|
Is there any automatic way to change a property for all bars in the chart
Dim oG2antt as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{01/02/2001},{01/04/2001},"K1")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{01/02/2001},{01/04/2001},"K2")
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",{01/02/2001},{01/04/2001},"K3")
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",{01/02/2001},{01/04/2001},"K4")
' var_Items.ItemBar(0,"<*>",33) = 255
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemBar(0,`<*>`,33) = 255"
|
|
980
|
How can I assign an icon to a bar and I get notified when I click it
Dim h as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
' oG2antt.Chart.PaneWidth(.f.) = 96
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",{01/05/2001},{01/10/2001},"","Caption")
' var_Items.ItemBar(h,"",44) = "<a1><img>1:8</img></a><a1><img>2</img></a>"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,``,44) = `<a1><img>1:8</img></a><a1><img>2</img></a>`"
' var_Items.ItemBar(h,"",45) = 16
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,``,45) = 16"
' var_Items.ItemBar(h,"",47) = 5
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,``,47) = 5"
oG2antt.EndUpdate()
|
|
979
|
How can I assign an icon to a bar so I do not break its caption
Dim h as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
' oG2antt.Chart.PaneWidth(.f.) = 96
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",{01/05/2001},{01/10/2001},"","Caption")
' var_Items.ItemBar(h,"",44) = "<img>1</img>"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,``,44) = `<img>1</img>`"
' var_Items.ItemBar(h,"",45) = 16
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,``,45) = 16"
' var_Items.ItemBar(h,"",47) = 5
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,``,47) = 5"
' var_Items.ItemBar(h,"",48) = 2
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,``,48) = 2"
oG2antt.EndUpdate()
|
|
978
|
How can I assign multiple lables to the same bar
Dim h1 as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
' oG2antt.Chart.PaneWidth(.f.) = 96
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",{01/05/2001},{01/07/2001},"","Right")
' var_Items.ItemBar(h1,"",4) = 18
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,``,4) = 18"
var_Items.AddBar(h1,"",{01/05/2001},{01/05/2001},"T1","Left")
' var_Items.ItemBar(h1,"T1",4) = 16
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,`T1`,4) = 16"
var_Items.AddBar(h1,"",{01/05/2001},{01/07/2001},"T2","Center")
var_Items.GroupBars(h1,"",.t.,h1,"T1",.t.)
var_Items.GroupBars(h1,"",.t.,h1,"T1",.f.)
var_Items.GroupBars(h1,"",.t.,h1,"T2",.t.)
var_Items.GroupBars(h1,"",.f.,h1,"T2",.f.)
oG2antt.EndUpdate()
|
|
977
|
Is there any way to have more Captions on a bar than one
Dim h1 as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
' oG2antt.Chart.PaneWidth(.f.) = 96
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",{01/05/2001},{01/07/2001},"","Right")
' var_Items.ItemBar(h1,"",4) = 18
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,``,4) = 18"
var_Items.AddBar(h1,"",{01/05/2001},{01/05/2001},"T1","Left")
' var_Items.ItemBar(h1,"T1",4) = 16
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,`T1`,4) = 16"
var_Items.GroupBars(h1,"",.t.,h1,"T1",.t.)
var_Items.GroupBars(h1,"",.t.,h1,"T1",.f.)
oG2antt.EndUpdate()
|
|
976
|
How can I assign multiple lables to the same bar at once
Dim h as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
' oG2antt.Chart.PaneWidth(.f.) = 96
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/05/2001},{01/08/2001},"","Center")
' var_Items.ItemBar(h,"",44) = "left"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,``,44) = `left`"
' var_Items.ItemBar(h,"",45) = 16
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,``,45) = 16"
h = var_Items.AddItem("Task 2")
var_Items.AddBar(h,"Task",{01/07/2001},{01/11/2001},"","Center")
' var_Items.ItemBar(h,"",44) = "right"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,``,44) = `right`"
' var_Items.ItemBar(h,"",45) = 18
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,``,45) = 18"
oG2antt.EndUpdate()
|
|
975
|
How can I limit the duration or length of the bar
Dim h as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Chart1 as local
Dim var_Chart2 as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
' oG2antt.Chart.ScrollRange(0) = {01/01/2001}
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.ScrollRange(0) = #1/1/2001#"
' oG2antt.Chart.ScrollRange(1) = {01/07/2001}
var_Chart1 = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart1"
oG2antt.TemplateDef = var_Chart1
oG2antt.Template = "var_Chart1.ScrollRange(1) = #1/7/2001#"
' oG2antt.Chart.PaneWidth(.f.) = 128
var_Chart2 = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart2"
oG2antt.TemplateDef = var_Chart2
oG2antt.Template = "var_Chart2.PaneWidth(0) = 128"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
h = var_Items.AddItem("Item 1")
var_Items.AddBar(h,"Task",{01/02/2001},{01/05/2001})
' var_Items.ItemBar(h,"",36) = 2
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,``,36) = 2"
' var_Items.ItemBar(h,"",37) = 5
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,``,37) = 5"
' var_Items.ItemBar(h,"",3) = "Min=2 / Max=5"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,``,3) = `Min=2 / Max=5`"
' var_Items.ItemBar(h,"",4) = 18
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,``,4) = 18"
oG2antt.EndUpdate()
|
|
974
|
I have an EBN file how can I apply different colors to it, so no need to create a new one
Dim h as N
Dim hC as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oG2antt.SelBackColor = oG2antt.BackColor
oG2antt.SelForeColor = oG2antt.ForeColor
oG2antt.HasLines = 0
oG2antt.Columns.Add("Default")
var_Items = oG2antt.Items
h = var_Items.AddItem("Root")
hC = var_Items.InsertItem(h,,"Default")
' var_Items.ItemBackColor(hC) = 16777216
oG2antt.TemplateDef = "dim var_Items,hC"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = hC
oG2antt.Template = "var_Items.ItemBackColor(hC) = 16777216"
' var_Items.ItemHeight(var_Items.InsertItem(h,,"")) = 6
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemHeight(InsertItem(h,,``)) = 6"
hC = var_Items.InsertItem(h,,"Light Green")
' var_Items.ItemBackColor(hC) = 16842496
oG2antt.TemplateDef = "dim var_Items,hC"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = hC
oG2antt.Template = "var_Items.ItemBackColor(hC) = 16842496"
' oG2antt.Chart.ItemBackColor(hC) = 16842496
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "Me.Chart.ItemBackColor(hC) = 16842496"
' var_Items.ItemHeight(var_Items.InsertItem(h,,"")) = 6
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemHeight(InsertItem(h,,``)) = 6"
hC = var_Items.InsertItem(h,,"Dark Green")
' var_Items.ItemBackColor(hC) = 16809728
oG2antt.TemplateDef = "dim var_Items,hC"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = hC
oG2antt.Template = "var_Items.ItemBackColor(hC) = 16809728"
' var_Items.ItemHeight(var_Items.InsertItem(h,,"")) = 6
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemHeight(InsertItem(h,,``)) = 6"
hC = var_Items.InsertItem(h,,"Magenta")
' var_Items.ItemBackColor(hC) = 33521663
oG2antt.TemplateDef = "dim var_Items,hC"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = hC
oG2antt.Template = "var_Items.ItemBackColor(hC) = 33521663"
' var_Items.ItemHeight(var_Items.InsertItem(h,,"")) = 6
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemHeight(InsertItem(h,,``)) = 6"
hC = var_Items.InsertItem(h,,"Yellow")
' var_Items.ItemBackColor(hC) = 25165823
oG2antt.TemplateDef = "dim var_Items,hC"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = hC
oG2antt.Template = "var_Items.ItemBackColor(hC) = 25165823"
' var_Items.ItemHeight(var_Items.InsertItem(h,,"")) = 6
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemHeight(InsertItem(h,,``)) = 6"
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
|
|
973
|
I need to specify the non-working hours for about 100 days for each item, but the scrolling is very slow. Is there any option to increase the speed
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
Dim var_Level as P
Dim var_Level1 as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.AllowChartScrollPage = .t.
oG2antt.Columns.Add("Non-Work")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {04/04/2009 16:00:00}
' var_Chart.PaneWidth(.f.) = 52
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 52"
var_Chart.LevelCount = 2
var_Chart.UnitWidth = 16
var_Level = var_Chart.Level(0)
var_Level.Label = "<r><%d%>-<%mmm%>"
var_Level.Unit = 4096
var_Level1 = var_Chart.Level(1)
var_Level1.Label = "<%hh%>"
var_Level1.Unit = 65536
var_Level1.Count = 2
var_Items = oG2antt.Items
var_Items.AddItem("Default")
' var_Items.ItemNonworkingUnits(var_Items.AddItem("Test"),.f.) = "date(shortdate(value)) case(default:0;#4/5/2009# : hour(value) >= 6 and hour(value) <= 12; #4/6/2009# : hour(value) >= 6 and hour(value) <= 12; #4/7/2009# : hour(value) >= 6 and hour(value) <= 12; #4/8/2009# : hour(value) >= 6 and hour(value) <= 12; #4/9/2009# : hour(value) >= 6 and hour(value) <= 12; #4/10/2009# : hour(value) >= 6 and hour(value) <= 12; #4/11/2009# : hour(value) >= 6 and hour(value) <= 12; #4/12/2009# : hour(value) >= 6 and hour(value) <= 12; #4/13/2009# : hour(value) >= 6 and hour(value) <= 12; #4/14/2009# : hour(value) >= 6 and hour(value) <= 12; #4/15/2009# : hour(value) >= 6 and hour(value) <= 12; #4/16/2009# : hour(value) >= 6 and hour(value) <= 12; #4/17/2009# : hour(value) >= 6 and hour(value) <= 12; #4/18/2009# : hour(value) >= 6 and hour(value) <= 12; #4/19/2009# : hour(value) >= 6 and hour(value) <= 12; #4/20/2009# : hour(value) >= 6 and hour(value) <= 12; #4/21/2009# : hour(value) >= 6 and hour(value) <= 12; #4/22/2009# : hour(value) >= 6 and hour(value) <= 12; #4/23/2009# : hour(value) >= 6 and hour(value) <= 12; #4/24/2009# : hour(value) >= 6 and hour(value) <= 12; #4/25/2009# : hour(value) >= 6 and hour(value) <= 12; #4/26/2009# : hour(value) >= 6 and hour(value) <= 12; #4/27/2009# : hour(value) >= 6 and hour(value) <= 12; #4/28/2009# : hour(value) >= 6 and hour(value) <= 12; #4/29/2009# : hour(value) >= 6 and hour(value) <= 12; #4/30/2009# : hour(value) >= 6 and hour(value) <= 12; #5/1/2009# : hour(value) >= 6 and hour(value) <= 12; #5/2/2009# : hour(value) >= 6 and hour(value) <= 12; #5/3/2009# : hour(value) >= 6 and hour(value) <= 12; #5/4/2009# : hour(value) >= 6 and hour(value) <= 12; #5/5/2009# : hour(value) >= 6 and hour(value) <= 12; #5/6/2009# : hour(value) >= 6 and hour(value) <= 12; #5/7/2009# : hour(value) >= 6 and hour(value) <= 12; #5/8/2009# : hour(value) >= 6 and hour(value) <= 12; #5/9/2009# : hour(value) >= 6 and hour(value) <= 12; #5/10/2009# : hour(value) >= 6 and hour(value) <= 12; #5/11/2009# : hour(value) >= 6 and hour(value) <= 12; #5/13/2009# : hour(value) >= 6 and hour(value) <= 12; #5/14/2009# : hour(value) >= 6 and hour(value) <= 12; #5/15/2009# : hour(value) >= 6 and hour(value) <= 12; #5/16/2009# : hour(value) >= 6 and hour(value) <= 12; #5/17/2009# : hour(value) >= 6 and hour(value) <= 12; #5/18/2009# : hour(value) >= 6 and hour(value) <= 12; #5/19/2009# : hour(value) >= 6 and hour(value) <= 12; #5/20/2009# : hour(value) >= 6 and hour(value) <= 12; #5/21/2009# : hour(value) >= 6 and hour(value) <= 12; #5/22/2009# : hour(value) >= 6 and hour(value) <= 12; #5/23/2009# : hour(value) >= 6 and hour(value) <= 12; #5/24/2009# : hour(value) >= 6 and hour(value) <= 12; #5/25/2009# : hour(value) >= 6 and hour(value) <= 12; #5/26/2009# : hour(value) >= 6 and hour(value) <= 12; #5/27/2009# : hour(value) >= 6 and hour(value) <= 12; #5/28/2009# : hour(value) >= 6 and hour(value) <= 12; #5/29/2009# : hour(value) >= 6 and hour(value) <= 12; #5/30/2009# : hour(value) >= 6 and hour(value) <= 12; #5/31/2009# : hour(value) >= 6 and hour(value) <= 12; #6/1/2009# : hour(value) >= 6 and hour(value) <= 12; #6/2/2009# : hour(value) >= 6 and hour(value) <= 12; #6/3/2009# : hour(value) >= 6 and hour(value) <= 12; #6/4/2009# : hour(value) >= 6 and hour(value) <= 12; #6/5/2009# : hour(value) >= 6 and hour(value) <= 12; #6/6/2009# : hour(value) >= 6 and hour(value) <= 12; #6/7/2009# : hour(value) >= 6 and hour(value) <= 12; #6/8/2009# : hour(value) >= 6 and hour(value) <= 12; #6/9/2009# : hour(value) >= 6 and hour(value) <= 12; #6/10/2009# : hour(value) >= 6 and hour(value) <= 12; #6/11/2009# : hour(value) >= 6 and hour(value) <= 12; #6/12/2009# : hour(value) >= 6 and hour(value) <= 12; #6/13/2009# : hour(value) >= 6 and hour(value) <= 12; #6/14/2009# : hour(value) >= 6 and hour(value) <= 12; #6/15/2009# : hour(value) >= 6 and hour(value) <= 12; #6/16/2009# : hour(value) >= 6 and hour(value) <= 12; #6/17/2009# : hour(value) >= 6 and hour(value) <= 12; #6/18/2009# : hour(value) >= 6 and hour(value) <= 12; #6/19/2009# : hour(value) >= 6 and hour(value) <= 12; #6/21/2009# : hour(value) >= 6 and hour(value) <= 12; #6/22/2009# : hour(value) >= 6 and hour(value) <= 12; #6/23/2009# : hour(value) >= 6 and hour(value) <= 12; #6/24/2009# : hour(value) >= 6 and hour(value) <= 12; #6/25/2009# : hour(value) >= 6 and hour(value) <= 12; #6/26/2009# : hour(value) >= 6 and hour(value) <= 12; #6/27/2009# : hour(value) >= 6 and hour(value) <= 12; #6/28/2009# : hour(value) >= 6 and hour(value) <= 12; #6/29/2009# : hour(value) >= 6 and hour(value) <= 12; #6/30/2009# : hour(value) >= 6 and hour(value) <= 12; #7/1/2009# : hour(value) >= 6 and hour(value) <= 12; #7/2/2009# : hour(value) >= 6 and hour(value) <= 12; #7/3/2009# : hour(value) >= 6 and hour(value) <= 12; #7/4/2009# : hour(value) >= 6 and hour(value) <= 12; #7/5/2009# : hour(value) >= 6 and hour(value) <= 12; #7/6/2009# : hour(value) >= 6 and hour(value) <= 12; #7/7/2009# : hour(value) >= 6 and hour(value) <= 12; #7/8/2009# : hour(value) >= 6 and hour(value) <= 12; #7/9/2009# : hour(value) >= 6 and hour(value) <= 12; #7/10/2009# : hour(value) >= 6 and hour(value) <= 12; #7/11/2009# : hour(value) >= 6 and hour(value) <= 12; #7/12/2009# : hour(value) >= 6 and hour(value) <= 12; #7/13/2009# : hour(value) >= 6 and hour(value) <= 12; #7/14/2009# : hour(value) >= 6 and hour(value) <= 12)"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemNonworkingUnits(AddItem(`Test`),False) = `date(shortdate(value)) case(default:0;#4/5/2009# : hour(value) >= 6 and hour(value) <= 12; #4/6/2009# : hour(value) >= 6 and hour(value) <= 12; #4/7/2009# : hour(value) >= 6 and hour(value) <= 12; #4/8/2009# : hour(value) >= 6 and hour(value) <= 12; #4/9/2009# : hour(value) >= 6 and hour(value) <= 12; #4/10/2009# : hour(value) >= 6 and hour(value) <= 12; #4/11/2009# : hour(value) >= 6 and hour(value) <= 12; #4/12/2009# : hour(value) >= 6 and hour(value) <= 12; #4/13/2009# : hour(value) >= 6 and hour(value) <= 12; #4/14/2009# : hour(value) >= 6 and hour(value) <= 12; #4/15/2009# : hour(value) >= 6 and hour(value) <= 12; #4/16/2009# : hour(value) >= 6 and hour(value) <= 12; #4/17/2009# : hour(value) >= 6 and hour(value) <= 12; #4/18/2009# : hour(value) >= 6 and hour(value) <= 12; #4/19/2009# : hour(value) >= 6 and hour(value) <= 12; #4/20/2009# : hour(value) >= 6 and hour(value) <= 12; #4/21/2009# : hour(value) >= 6 and hour(value) <= 12; #4/22/2009# : hour(value) >= 6 and hour(value) <= 12; #4/23/2009# : hour(value) >= 6 and hour(value) <= 12; #4/24/2009# : hour(value) >= 6 and hour(value) <= 12; #4/25/2009# : hour(value) >= 6 and hour(value) <= 12; #4/26/2009# : hour(value) >= 6 and hour(value) <= 12; #4/27/2009# : hour(value) >= 6 and hour(value) <= 12; #4/28/2009# : hour(value) >= 6 and hour(value) <= 12; #4/29/2009# : hour(value) >= 6 and hour(value) <= 12; #4/30/2009# : hour(value) >= 6 and hour(value) <= 12; #5/1/2009# : hour(value) >= 6 and hour(value) <= 12; #5/2/2009# : hour(value) >= 6 and hour(value) <= 12; #5/3/2009# : hour(value) >= 6 and hour(value) <= 12; #5/4/2009# : hour(value) >= 6 and hour(value) <= 12; #5/5/2009# : hour(value) >= 6 and hour(value) <= 12; #5/6/2009# : hour(value) >= 6 and hour(value) <= 12; #5/7/2009# : hour(value) >= 6 and hour(value) <= 12; #5/8/2009# : hour(value) >= 6 and hour(value) <= 12; #5/9/2009# : hour(value) >= 6 and hour(value) <= 12; #5/10/2009# : hour(value) >= 6 and hour(value) <= 12; #5/11/2009# : hour(value) >= 6 and hour(value) <= 12; #5/13/2009# : hour(value) >= 6 and hour(value) <= 12; #5/14/2009# : hour(value) >= 6 and hour(value) <= 12; #5/15/2009# : hour(value) >= 6 and hour(value) <= 12; #5/16/2009# : hour(value) >= 6 and hour(value) <= 12; #5/17/2009# : hour(value) >= 6 and hour(value) <= 12; #5/18/2009# : hour(value) >= 6 and hour(value) <= 12; #5/19/2009# : hour(value) >= 6 and hour(value) <= 12; #5/20/2009# : hour(value) >= 6 and hour(value) <= 12; #5/21/2009# : hour(value) >= 6 and hour(value) <= 12; #5/22/2009# : hour(value) >= 6 and hour(value) <= 12; #5/23/2009# : hour(value) >= 6 and hour(value) <= 12; #5/24/2009# : hour(value) >= 6 and hour(value) <= 12; #5/25/2009# : hour(value) >= 6 and hour(value) <= 12; #5/26/2009# : hour(value) >= 6 and hour(value) <= 12; #5/27/2009# : hour(value) >= 6 and hour(value) <= 12; #5/28/2009# : hour(value) >= 6 and hour(value) <= 12; #5/29/2009# : hour(value) >= 6 and hour(value) <= 12; #5/30/2009# : hour(value) >= 6 and hour(value) <= 12; #5/31/2009# : hour(value) >= 6 and hour(value) <= 12; #6/1/2009# : hour(value) >= 6 and hour(value) <= 12; #6/2/2009# : hour(value) >= 6 and hour(value) <= 12; #6/3/2009# : hour(value) >= 6 and hour(value) <= 12; #6/4/2009# : hour(value) >= 6 and hour(value) <= 12; #6/5/2009# : hour(value) >= 6 and hour(value) <= 12; #6/6/2009# : hour(value) >= 6 and hour(value) <= 12; #6/7/2009# : hour(value) >= 6 and hour(value) <= 12; #6/8/2009# : hour(value) >= 6 and hour(value) <= 12; #6/9/2009# : hour(value) >= 6 and hour(value) <= 12; #6/10/2009# : hour(value) >= 6 and hour(value) <= 12; #6/11/2009# : hour(value) >= 6 and hour(value) <= 12; #6/12/2009# : hour(value) >= 6 and hour(value) <= 12; #6/13/2009# : hour(value) >= 6 and hour(value) <= 12; #6/14/2009# : hour(value) >= 6 and hour(value) <= 12; #6/15/2009# : hour(value) >= 6 and hour(value) <= 12; #6/16/2009# : hour(value) >= 6 and hour(value) <= 12; #6/17/2009# : hour(value) >= 6 and hour(value) <= 12; #6/18/2009# : hour(value) >= 6 and hour(value) <= 12; #6/19/2009# : hour(value) >= 6 and hour(value) <= 12; #6/21/2009# : hour(value) >= 6 and hour(value) <= 12; #6/22/2009# : hour(value) >= 6 and hour(value) <= 12; #6/23/2009# : hour(value) >= 6 and hour(value) <= 12; #6/24/2009# : hour(value) >= 6 and hour(value) <= 12; #6/25/2009# : hour(value) >= 6 and hour(value) <= 12; #6/26/2009# : hour(value) >= 6 and hour(value) <= 12; #6/27/2009# : hour(value) >= 6 and hour(value) <= 12; #6/28/2009# : hour(value) >= 6 and hour(value) <= 12; #6/29/2009# : hour(value) >= 6 and hour(value) <= 12; #6/30/2009# : hour(value) >= 6 and hour(value) <= 12; #7/1/2009# : hour(value) >= 6 and hour(value) <= 12; #7/2/2009# : hour(value) >= 6 and hour(value) <= 12; #7/3/2009# : hour(value) >= 6 and hour(value) <= 12; #7/4/2009# : hour(value) >= 6 and hour(value) <= 12; #7/5/2009# : hour(value) >= 6 and hour(value) <= 12; #7/6/2009# : hour(value) >= 6 and hour(value) <= 12; #7/7/2009# : hour(value) >= 6 and hour(value) <= 12; #7/8/2009# : hour(value) >= 6 and hour(value) <= 12; #7/9/2009# : hour(value) >= 6 and hour(value) <= 12; #7/10/2009# : hour(value) >= 6 and hour(value) <= 12; #7/11/2009# : hour(value) >= 6 and hour(value) <= 12; #7/12/2009# : hour(value) >= 6 and hour(value) <= 12; #7/13/2009# : hour(value) >= 6 and hour(value) <= 12; #7/14/2009# : hour(value) >= 6 and hour(value) <= 12)`"
' var_Items.ItemNonworkingUnits(var_Items.AddItem("Test"),.f.) = "date(shortdate(value)) case(default:0;#4/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/12/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/15/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/16/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/17/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/18/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/19/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/20/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/21/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/22/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/23/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/24/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/25/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/26/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/27/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/28/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/29/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/30/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/1/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/2/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/3/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/4/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/15/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/16/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/17/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/18/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/19/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/20/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/21/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/22/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/23/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/24/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/25/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/26/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/27/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/28/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/29/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/30/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/31/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/1/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/2/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/3/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/4/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/12/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/15/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/16/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/17/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/18/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/19/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/21/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/22/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/23/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/24/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/25/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/26/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/27/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/28/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/29/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/30/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/1/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/2/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/3/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/4/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/12/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21))"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemNonworkingUnits(AddItem(`Test`),False) = `date(shortdate(value)) case(default:0;#4/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/12/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/15/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/16/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/17/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/18/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/19/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/20/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/21/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/22/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/23/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/24/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/25/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/26/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/27/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/28/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/29/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/30/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/1/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/2/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/3/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/4/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/15/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/16/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/17/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/18/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/19/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/20/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/21/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/22/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/23/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/24/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/25/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/26/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/27/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/28/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/29/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/30/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/31/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/1/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/2/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/3/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/4/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/12/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/15/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/16/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/17/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/18/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/19/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/21/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/22/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/23/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/24/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/25/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/26/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/27/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/28/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/29/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/30/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/1/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/2/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/3/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/4/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/12/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21))`"
var_Items.AddItem("Default")
oG2antt.EndUpdate()
|
|
972
|
How can I use the CASE statement (CASE usage)
Dim oG2antt as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Column = oG2antt.Columns.Add("Value")
var_Column.Width = 24
var_Column.Editor.EditType = 4
var_Column1 = oG2antt.Columns.Add("CASE - statment")
var_Column1.ComputedField = "%0 case (default:'not found';1:%0;2:2*%0;3:3*%0;4:4*%0;5:5*%0;7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen';14:'Fourtheen')"
var_Column1.ToolTip = var_Column1.ComputedField
var_Items = oG2antt.Items
var_Items.AddItem(0)
var_Items.AddItem(1)
var_Items.AddItem(2)
oG2antt.EndUpdate()
|
|
971
|
How can I use the CASE statement (CASE usage)
Dim oG2antt as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Column = oG2antt.Columns.Add("Value")
var_Column.Width = 24
var_Column.Editor.EditType = 4
var_Column1 = oG2antt.Columns.Add("CASE - statment")
var_Column1.ComputedField = "%0 case (default:'not found';1:'One';2:'Two';3:'Three';4:'Four';5:'Five';7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen';14:'Fourtheen')"
var_Column1.ToolTip = var_Column1.ComputedField
var_Items = oG2antt.Items
var_Items.AddItem(0)
var_Items.AddItem(1)
var_Items.AddItem(2)
oG2antt.EndUpdate()
|
|
970
|
I have seen the IN function but it returns -1 or 0. How can I display the value being found ( SWITCH usage )
Dim oG2antt as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Column = oG2antt.Columns.Add("Value")
var_Column.Width = 24
var_Column.Editor.EditType = 4
var_Column1 = oG2antt.Columns.Add("SWITCH - statment")
var_Column1.ComputedField = "%0 switch ('not found', 1,2,3,4,5,7,8,9,11,13,14)"
var_Column1.ToolTip = var_Column1.ComputedField
var_Items = oG2antt.Items
var_Items.AddItem(0)
var_Items.AddItem(1)
var_Items.AddItem(2)
oG2antt.EndUpdate()
|
|
969
|
I have a large collection of constant values and using or operator is a time consuming (IN usage). Is there any way to increase the speed to check if a value maches the collection
Dim oG2antt as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Column = oG2antt.Columns.Add("Value")
var_Column.Width = 24
var_Column.Editor.EditType = 4
var_Column1 = oG2antt.Columns.Add("IN - statment")
var_Column1.ComputedField = "%0 in (1,2,3,4,5,7,8,9,11,13,14) ? 'found' : ''"
var_Column1.ToolTip = var_Column1.ComputedField
var_Items = oG2antt.Items
var_Items.AddItem(0)
var_Items.AddItem(1)
var_Items.AddItem(2)
oG2antt.EndUpdate()
|
|
968
|
How can I automatically update the exBarPercent value using a slider control
Dim i as N
Dim oG2antt as P
Dim var_Bar as local
Dim var_Chart as P
Dim var_Column as P
Dim var_Editor as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Items.AllowCellValueToItemBar = .t.
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2002}
' var_Chart.PaneWidth(.f.) = 128
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 128"
' var_Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
var_Bar = var_Chart.Bars.Add("Task%Progress")
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Shortcut = `Percent`"
var_Column = oG2antt.Columns.Add("Percent")
' var_Column.Def(18) = 12
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(18) = 12"
' var_Column.Def(19) = "P"
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(19) = `P`"
var_Items = oG2antt.Items
i = var_Items.AddItem(0)
' var_Items.CellBold(i,0) = .t.
oG2antt.TemplateDef = "dim var_Items,i"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = i
oG2antt.Template = "var_Items.CellBold(i,0) = True"
var_Editor = var_Items.CellEditor(i,0)
var_Editor.EditType = 20
' var_Editor.Option(42) = 0.01
oG2antt.TemplateDef = "dim var_Editor"
oG2antt.TemplateDef = var_Editor
oG2antt.Template = "var_Editor.Option(42) = 0.01"
' var_Editor.Option(40) = 0.01
oG2antt.TemplateDef = "dim var_Editor"
oG2antt.TemplateDef = var_Editor
oG2antt.Template = "var_Editor.Option(40) = 0.01"
' var_Editor.Option(44) = 1
oG2antt.TemplateDef = "dim var_Editor"
oG2antt.TemplateDef = var_Editor
oG2antt.Template = "var_Editor.Option(44) = 1"
' var_Editor.Option(41) = -100
oG2antt.TemplateDef = "dim var_Editor"
oG2antt.TemplateDef = var_Editor
oG2antt.Template = "var_Editor.Option(41) = -100"
' var_Items.CellValueFormat(i,0) = 1
oG2antt.TemplateDef = "dim var_Items,i"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = i
oG2antt.Template = "var_Items.CellValueFormat(i,0) = 1"
var_Items.AddBar(i,"Percent",{01/02/2002},{01/06/2002},"P")
' var_Items.ItemBar(i,"P",14) = .t.
oG2antt.TemplateDef = "dim var_Items,i"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = i
oG2antt.Template = "var_Items.ItemBar(i,`P`,14) = True"
' var_Items.CellValue(i,0) = 0.5
oG2antt.TemplateDef = "dim var_Items,i"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = i
oG2antt.Template = "var_Items.CellValue(i,0) = 0.5"
oG2antt.EndUpdate()
|
|
967
|
How can I automatically update the exBarPercent value using a spin control
Dim i as N
Dim oG2antt as P
Dim var_Bar as local
Dim var_Chart as P
Dim var_Column as P
Dim var_Editor as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Items.AllowCellValueToItemBar = .t.
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2002}
' var_Chart.PaneWidth(.f.) = 128
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 128"
' var_Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
var_Bar = var_Chart.Bars.Add("Task%Progress")
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Shortcut = `Percent`"
var_Column = oG2antt.Columns.Add("Percent")
' var_Column.Def(18) = 12
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(18) = 12"
var_Column.FormatColumn = "((0:=round(dbl(%0)*100)) >= 50 ? '<font 8>'+ =:0 + '%</font>' : '<fgcolor=808080><font 6>'+ =:0 + '%</font></fgcolor>')"
var_Items = oG2antt.Items
i = var_Items.AddItem(0)
' var_Items.CellBold(i,0) = .t.
oG2antt.TemplateDef = "dim var_Items,i"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = i
oG2antt.Template = "var_Items.CellBold(i,0) = True"
var_Editor = var_Items.CellEditor(i,0)
var_Editor.EditType = 4
' var_Editor.Option(40) = 0.01
oG2antt.TemplateDef = "dim var_Editor"
oG2antt.TemplateDef = var_Editor
oG2antt.Template = "var_Editor.Option(40) = 0.01"
' var_Editor.Option(44) = 1
oG2antt.TemplateDef = "dim var_Editor"
oG2antt.TemplateDef = var_Editor
oG2antt.Template = "var_Editor.Option(44) = 1"
' var_Items.CellValueFormat(i,0) = 1
oG2antt.TemplateDef = "dim var_Items,i"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = i
oG2antt.Template = "var_Items.CellValueFormat(i,0) = 1"
var_Items.AddBar(i,"Percent",{01/02/2002},{01/06/2002})
' var_Items.CellValue(i,0) = 0.5
oG2antt.TemplateDef = "dim var_Items,i"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = i
oG2antt.Template = "var_Items.CellValue(i,0) = 0.5"
oG2antt.EndUpdate()
|
|
966
|
How do I specify for an item all units as being non-working units
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
Dim var_Level as P
Dim var_Level1 as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.AllowChartScrollPage = .t.
oG2antt.Columns.Add("Non-Work")
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 1
var_Chart.FirstVisibleDate = {04/03/2009 10:00:00}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Chart.LevelCount = 2
var_Chart.UnitWidth = 16
var_Level = var_Chart.Level(0)
var_Level.Label = "<r><%d%>-<%mmm%>"
var_Level.Unit = 4096
var_Level1 = var_Chart.Level(1)
var_Level1.Label = "<%hh%>"
var_Level1.Unit = 65536
var_Level1.Count = 2
var_Items = oG2antt.Items
var_Items.AddItem("Default")
' var_Items.ItemNonworkingUnits(var_Items.AddItem("All-Non-Working"),.f.) = "1"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemNonworkingUnits(AddItem(`All-Non-Working`),False) = `1`"
var_Items.AddItem("Default")
oG2antt.EndUpdate()
|
|
965
|
How do I specify for an item all units as being working units
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
Dim var_Level as P
Dim var_Level1 as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.AllowChartScrollPage = .t.
oG2antt.Columns.Add("Non-Work")
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 1
var_Chart.FirstVisibleDate = {04/03/2009 10:00:00}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 64"
var_Chart.LevelCount = 2
var_Chart.UnitWidth = 16
var_Level = var_Chart.Level(0)
var_Level.Label = "<r><%d%>-<%mmm%>"
var_Level.Unit = 4096
var_Level1 = var_Chart.Level(1)
var_Level1.Label = "<%hh%>"
var_Level1.Unit = 65536
var_Level1.Count = 2
var_Items = oG2antt.Items
var_Items.AddItem("Default")
' var_Items.ItemNonworkingUnits(var_Items.AddItem("All-Working"),.f.) = "0"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemNonworkingUnits(AddItem(`All-Working`),False) = `0`"
var_Items.AddItem("Default")
oG2antt.EndUpdate()
|
|
964
|
How can I programmatically specify different non-working units ( days, hours ) for different items
Dim h as N
Dim oG2antt as P
Dim var_Bar as local
Dim var_Chart as P
Dim var_Items as P
Dim var_Level as P
Dim var_Level1 as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.AllowChartScrollPage = .t.
oG2antt.Columns.Add("Non-Work")
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 1
' var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
var_Bar = var_Chart.Bars.Add("Task:Split")
oG2antt.TemplateDef = "dim var_Bar"
oG2antt.TemplateDef = var_Bar
oG2antt.Template = "var_Bar.Shortcut = `Task`"
var_Chart.FirstVisibleDate = {07/13/2009 12:00:00}
' var_Chart.PaneWidth(.f.) = 52
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 52"
var_Chart.LevelCount = 2
var_Chart.UnitWidth = 16
var_Level = var_Chart.Level(0)
var_Level.Label = "<r><b><%d%></b> <%mmm%> <%yyyy%>"
var_Level.Unit = 4096
var_Level1 = var_Chart.Level(1)
var_Level1.Label = "<%hh%>"
var_Level1.Unit = 65536
var_Level1.Count = 2
var_Items = oG2antt.Items
h = var_Items.AddItem("Item 1")
' var_Items.ItemNonworkingUnits(h,.f.) = "(shortdate(value) = #7/14/2009# and hour(value) >= 6 and hour(value) <= 12)"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemNonworkingUnits(h,False) = `(shortdate(value) = #7/14/2009# and hour(value) >= 6 and hour(value) <= 12)`"
var_Items.AddBar(h,"Task",{07/14/2009 04:00:00},{07/14/2009 14:00:00})
h = var_Items.AddItem("Item 2")
' var_Items.ItemNonworkingUnits(h,.f.) = "(((hour(value) >= 4 and hour(value) <= 16) or hour(value) = 2) and month(value) = 7) or ((hour(value) >= 2 and hour(value) < 10)) and month(value) = 6 or weekday(value) = 6"
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemNonworkingUnits(h,False) = `(((hour(value) >= 4 and hour(value) <= 16) or hour(value) = 2) and month(value) = 7) or ((hour(value) >= 2 and hour(value) < 10)) and month(value) = 6 or weekday(value) = 6`"
var_Items.AddBar(h,"Task",{07/14/2009 01:00:00},{07/14/2009 06:00:00})
oG2antt.EndUpdate()
|
|
963
|
I am programmatically select a date using the Chart.SelectDate property, but can't see why the date is not highlighted. What am I doing wrong
Dim oG2antt as P
Dim var_Chart as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.SelectLevel = 1
' var_Chart.SelectDate({01/04/2001}) = .t.
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.SelectDate(#1/4/2001#) = True"
|
|
962
|
How do I show a shorter line in the chart's level
Dim oG2antt as P
Dim var_Chart as P
Dim var_Level as P
Dim var_Level1 as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.GridLineColor = 8421504
var_Chart = oG2antt.Chart
var_Chart.DrawLevelSeparator = 0
var_Chart.UnitWidth = 24
var_Chart.FirstVisibleDate = {01/01/2001}
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 0"
var_Chart.LevelCount = 2
var_Level = var_Chart.Level(0)
var_Level.Alignment = 1
var_Level.Label = "<%dddd%>"
var_Level.DrawTickLines = 18 'exLevelLowerHalf + exLevelSolidLine
var_Level1 = var_Chart.Level(1)
var_Level1.Label = 65536
var_Level1.Count = 6
var_Level1.DrawTickLines = 578 '200 + exLevelMiddleLine + exLevelSolidLine
var_Level1.DrawTickLinesFrom(0,34 'exLevelUpperHalf + exLevelSolidLine)
oG2antt.EndUpdate()
|
|
961
|
How do I replicate the screen shot http://www.exontrol.com/images/exg2antt9.jpg
Dim h as N
Dim oG2antt as P
Dim var_Appearance as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Columns as P
Dim var_Items as P
Dim var_Level as P
Dim var_Level1 as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Appearance = oG2antt.VisualAppearance
var_Appearance.Add(1,"C:\Program Files\Exontrol\ExG2antt.NET\Sample\EBN\headdark.ebn")
var_Appearance.Add(2,"C:\Program Files\Exontrol\ExG2antt.NET\Sample\EBN\xpbsel.ebn")
var_Appearance.Add(3,"C:\Program Files\Exontrol\ExG2antt.NET\Sample\EBN\headligh.ebn")
var_Appearance.Add(4,"CP:1 0 0 1 1")
oG2antt.BackColorHeader = 67108864
oG2antt.Chart.BackColorLevelHeader = 67108864
oG2antt.SelBackColor = 33554687
oG2antt.GridLineColor = 8421504
oG2antt.HeaderHeight = 22
oG2antt.SelForeColor = 0
oG2antt.MarkSearchColumn = .f.
oG2antt.ScrollBySingleLine = .f.
oG2antt.ShowFocusRect = .f.
oG2antt.DefaultItemHeight = 48
var_Columns = oG2antt.Columns
var_Column = var_Columns.Add("Group")
' var_Column.Def(0) = .t.
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(0) = True"
' var_Column.Def(4) = 50331648
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(4) = 50331648"
var_Column.LevelKey = 1
var_Column1 = var_Columns.Add("Histogram")
var_Column1.Width = 18
var_Column1.AllowSizing = .f.
var_Column1.LevelKey = 1
var_Column1.Position = 0
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {06/11/2009}
var_Chart.DrawGridLines = -1
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Chart.LevelCount = 2
var_Chart.DrawLevelSeparator = .f.
var_Level = var_Chart.Level(0)
var_Level.Label = "<%mmmm%> <%yyyy%>"
var_Level.Unit = 16
var_Level.Alignment = 1
var_Level1 = var_Chart.Level(1)
var_Level1.FormatLabel = "weekday(dvalue)=1?value:''"
var_Level1.DrawTickLines = 18 'exLevelLowerHalf + exLevelSolidLine
var_Level1.DrawTickLinesFrom(0,2)
var_Level1.Alignment = 1
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.Color = 33554432
var_Bar.Height = 18
var_Bar.OverlaidType = 515 'exOverlaidBarsStackAutoArrange + exOverlaidBarsStack
var_Bar.HistogramColor = 16777216
var_Bar.HistogramType = 1
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 48
var_Chart.HistogramView = 4
var_Items = oG2antt.Items
h = var_Items.AddItem("Group <b>A</b>")
' var_Items.CellValueFormat(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValueFormat(h,0) = 1"
' var_Items.CellMerge(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellMerge(h,0) = 1"
var_Items.AddBar(h,"Task",{06/12/2009},{06/19/2009},"K1","Requirements")
var_Items.AddBar(h,"Task",{06/13/2009},{06/21/2009},"K2","Sales & Marketing")
' var_Items.ItemBar(h,"K1",33) = 255
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K1`,33) = 255"
' var_Items.ItemBar(h,"K2",33) = 255
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K2`,33) = 255"
' var_Items.CellState(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellState(h,0) = 1"
h = var_Items.AddItem("Group <b>B</b>")
' var_Items.CellValueFormat(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValueFormat(h,0) = 1"
' var_Items.CellMerge(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellMerge(h,0) = 1"
var_Items.AddBar(h,"Task",{06/14/2009},{06/23/2009},"K1","<b>GUI</b> Design")
var_Items.AddBar(h,"Task",{06/18/2009},{06/25/2009},"K2","Class Design")
h = var_Items.AddItem("Group <b>C</b>")
' var_Items.CellValueFormat(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellValueFormat(h,0) = 1"
' var_Items.CellMerge(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellMerge(h,0) = 1"
var_Items.AddBar(h,"Task",{06/12/2009},{06/19/2009},"K1","<b>GUI</b> Coding")
var_Items.AddBar(h,"Task",{06/13/2009},{06/25/2009},"K2","Design & Concept")
' var_Items.ItemBar(h,"K1",33) = 65280
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K1`,33) = 65280"
' var_Items.ItemBar(h,"K2",33) = 65280
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K2`,33) = 65280"
oG2antt.EndUpdate()
|
|
960
|
How can I remove all bars from the chart
Dim oG2antt as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{01/02/2001},{01/04/2001},"K1")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{01/02/2001},{01/04/2001},"K1")
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",{01/02/2001},{01/04/2001},"K1")
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",{01/02/2001},{01/04/2001},"K2")
var_Items.ClearBars(0)
|
|
959
|
How can I change the color for all bars with a specified key
Dim oG2antt as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{01/02/2001},{01/04/2001},"K1")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{01/02/2001},{01/04/2001},"K1")
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",{01/02/2001},{01/04/2001},"K1")
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",{01/02/2001},{01/04/2001},"K2")
' var_Items.ItemBar(0,"K1",33) = 255
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemBar(0,`K1`,33) = 255"
|
|
958
|
Is there any automatic way to change a property for all bars with a specified key
Dim oG2antt as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{01/02/2001},{01/04/2001},"K1")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{01/02/2001},{01/04/2001},"K1")
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",{01/02/2001},{01/04/2001},"K1")
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",{01/02/2001},{01/04/2001},"K2")
' var_Items.ItemBar(0,"K1",33) = 255
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.ItemBar(0,`K1`,33) = 255"
|
|
957
|
How can I remove all bars with specified key
Dim oG2antt as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{01/02/2001},{01/04/2001},"K1")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{01/02/2001},{01/04/2001},"K1")
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",{01/02/2001},{01/04/2001},"K1")
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",{01/02/2001},{01/04/2001},"K2")
var_Items.RemoveBar(0,"K1")
|
|
956
|
How do I several bars with different vertical offsets
Dim h as N
Dim oG2antt as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
h = var_Items.AddItem("Item")
' var_Items.ItemHeight(h) = 62
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemHeight(h) = 62"
var_Items.AddBar(h,"Task",{01/02/2001},{01/04/2001},"T1")
' var_Items.ItemBar(h,"T1",18) = -23
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`T1`,18) = -23"
var_Items.AddBar(h,"Task",{01/02/2001},{01/04/2001},"T2")
' var_Items.ItemBar(h,"T2",18) = -11
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`T2`,18) = -11"
var_Items.AddBar(h,"Task",{01/02/2001},{01/04/2001},"T3")
' var_Items.ItemBar(h,"T3",18) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`T3`,18) = 1"
var_Items.AddBar(h,"Task",{01/02/2001},{01/04/2001},"T4")
' var_Items.ItemBar(h,"T4",18) = 13
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`T4`,18) = 13"
var_Items.AddBar(h,"Task",{01/02/2001},{01/04/2001},"T5")
' var_Items.ItemBar(h,"T5",18) = 25
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`T5`,18) = 25"
|
|
955
|
Is there any option to show gradient bars without using EBN technology
Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
var_Bar = oG2antt.Chart.Bars.Item("Task")
var_Bar.Color = 255
var_Bar.StartColor = 65280
var_Bar.EndColor = 65535
var_Bar.Pattern = 32
var_Items = oG2antt.Items
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",{01/02/2001},{01/05/2001},"")
|
|
954
|
How can I define a bar with border and solid filling
Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
var_Bar = oG2antt.Chart.Bars.Item("Task")
var_Bar.Color = 255
var_Bar.StartColor = 65535
var_Bar.EndColor = 65535
var_Bar.Pattern = 32
var_Items = oG2antt.Items
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",{01/02/2001},{01/05/2001},"")
|
|
953
|
How can I define a bar with border and solid filling
Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
var_Bar = oG2antt.Chart.Bars.Item("Task")
var_Bar.Color = 255
var_Bar.Pattern = 32
var_Bar.Height = 18
var_Items = oG2antt.Items
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",{01/02/2001},{01/05/2001},"")
' var_Items.ItemBar(h,"",7) = 65535
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,``,7) = 65535"
|
|
952
|
How do I define a bar with solid border and filling
Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExG2antt.NET\sample\EBN\blackboxt.ebn")
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
var_Bar = oG2antt.Chart.Bars.Item("Task")
var_Bar.Color = 16777216
var_Bar.Height = 18
var_Items = oG2antt.Items
h = var_Items.AddItem("Task")
var_Items.AddBar(h,"Task",{01/02/2001},{01/05/2001},"")
' var_Items.ItemBar(h,"",33) = 255
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,``,33) = 255"
' var_Items.ItemBar(h,"",7) = 65535
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,``,7) = 65535"
|
|
951
|
Can I control the units/resource/effort being allocated to a bar when displaying OverAllocation histogram
Dim h1 as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Column as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Column = oG2antt.Columns.Add("Effort")
' var_Column.Def(18) = 21
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(18) = 21"
var_Column.Editor.EditType = 4
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.NonworkingDays = 0
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 202
var_Chart.HistogramView = 112
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = 2050 'exRectangularCurve + exPatternDot
var_Bar.HistogramType = 1
var_Bar.HistogramCriticalValue = 50
var_Bar.HistogramGridLinesColor = 12632256
var_Bar.HistogramRulerLinesColor = 65536
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = .t.
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",{06/21/2005},{06/25/2005})
' var_Items.CellValue(h1,1) = 2
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellValue(h1,1) = 2"
h1 = var_Items.AddItem("Task 2")
var_Items.AddBar(h1,"Task",{06/24/2005},{06/28/2005})
' var_Items.CellValue(h1,1) = 1
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellValue(h1,1) = 1"
h1 = var_Items.AddItem("Task 3")
var_Items.AddBar(h1,"Task",{06/27/2005},{07/01/2005})
' var_Items.CellValue(h1,1) = 2
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellValue(h1,1) = 2"
h1 = var_Items.AddItem("Task 4")
var_Items.AddBar(h1,"Task",{06/30/2005},{07/02/2005})
' var_Items.CellValue(h1,1) = 1
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellValue(h1,1) = 1"
oG2antt.EndUpdate()
|
|
950
|
Can I control the units/resource/effort being allocated to a bar when displaying Overload histogram
Dim h1 as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Column as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Column = oG2antt.Columns.Add("Effort")
' var_Column.Def(18) = 21
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(18) = 21"
var_Column.Editor.EditType = 4
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.NonworkingDays = 0
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 128
var_Chart.HistogramView = 112
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = var_Bar.Pattern
var_Bar.HistogramType = 0
var_Bar.HistogramCriticalValue = 3
var_Bar.ShowHistogramValues = "value>3?255:1"
var_Bar.HistogramItems = -11
var_Bar.HistogramGridLinesColor = 12632256
var_Bar.HistogramRulerLinesColor = 65536
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = .t.
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",{06/21/2005},{06/23/2005})
' var_Items.CellValue(h1,1) = 4
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellValue(h1,1) = 4"
h1 = var_Items.AddItem("Task 2")
var_Items.AddBar(h1,"Task",{06/24/2005},{06/26/2005})
' var_Items.CellValue(h1,1) = 3
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellValue(h1,1) = 3"
h1 = var_Items.AddItem("Task 3")
var_Items.AddBar(h1,"Task",{06/27/2005},{06/29/2005})
' var_Items.CellValue(h1,1) = 2
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellValue(h1,1) = 2"
h1 = var_Items.AddItem("Task 4")
var_Items.AddBar(h1,"Task",{06/30/2005},{07/02/2005})
' var_Items.CellValue(h1,1) = 1
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellValue(h1,1) = 1"
oG2antt.EndUpdate()
|
|
949
|
How can I display double-lines curves in the histogram
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.AntiAliasing = .t.
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 48
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 48"
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 64
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = 512
var_Bar.HistogramItems = 3
var_Bar.HistogramBorderColor = 128
var_Bar.HistogramColor = 255
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001})
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",{01/03/2001},{01/07/2001})
|
|
948
|
Is there any option to display values in the histogram using different colors
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 32
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = 6
var_Bar.HistogramItems = 6
var_Bar.ShowHistogramValues = "value>1?255:65280"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001})
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/03/2001},{01/07/2001})
|
|
947
|
Is there any option to display values in the histogram using different colors
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 32
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = 6
var_Bar.HistogramItems = 6
var_Bar.ShowHistogramValues = "value>1?255:1"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001})
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/03/2001},{01/07/2001})
|
|
946
|
How can I display only few values in the histogram, such as the values greater than a value
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 32
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = 6
var_Bar.ShowHistogramValues = "value>1"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001})
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/03/2001},{01/07/2001})
|
|
945
|
How can I display values in the histogram
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 32
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = 6
var_Bar.ShowHistogramValues = "1"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001})
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/03/2001},{01/07/2001})
|
|
944
|
How can I scroll the chart to find a bar
Dim h as N
Dim oG2antt as P
Dim var_Chart as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Columns.Add("Column")
oG2antt.Chart.LevelCount = 2
' oG2antt.Chart.PaneWidth(.f.) = 64
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 64"
oG2antt.DefaultItemHeight = 32
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001},1)
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",{01/02/2001},{01/04/2001},2)
var_Items.AddBar(var_Items.AddItem("Item 3"),"Task",{01/02/2001},{01/04/2001},3)
var_Items.AddBar(var_Items.AddItem("Item 4"),"Task",{01/02/2001},{01/04/2001},4)
var_Items.AddBar(var_Items.AddItem("Item 5"),"Task",{01/02/2001},{01/04/2001},5)
var_Items.AddBar(var_Items.AddItem("Item 6"),"Task",{01/02/2001},{01/04/2001},6)
var_Items.AddBar(var_Items.AddItem("Item 7"),"Task",{01/02/2001},{01/04/2001},7)
var_Items.AddBar(var_Items.AddItem("Item 8"),"Task",{01/02/2001},{01/04/2001},8)
var_Items.AddBar(var_Items.AddItem("Item 9"),"Task",{01/02/2001},{01/04/2001},8)
var_Items.AddBar(var_Items.AddItem("Item 10"),"Task",{01/02/2001},{01/04/2001},10)
var_Items.AddBar(var_Items.AddItem("Item 11"),"Task",{01/02/2001},{01/04/2001},11)
var_Items.AddBar(var_Items.AddItem("Item 12"),"Task",{01/02/2001},{01/04/2001},12)
var_Items.AddBar(var_Items.AddItem("Item 13"),"Task",{01/02/2001},{01/04/2001},13)
var_Items.AddBar(var_Items.AddItem("Item 14"),"Task",{01/02/2001},{01/04/2001},14)
h = oG2antt.Items.FindBar(14)
oG2antt.Items.EnsureVisibleItem(h)
oG2antt.Chart.ScrollTo(oG2antt.Items.ItemBar(h,14,1),1)
|
|
943
|
Can I change the color/marker/frame for selected bars
Dim h as N
Dim oG2antt as P
Dim var_Appearance as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Appearance = oG2antt.VisualAppearance
var_Appearance.Add(2,"c:\exontrol\images\normal.ebn")
var_Appearance.Add(1,"CP:2 3 2 -3 -2")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2002}
var_Chart.SelBarColor = 16777216
' var_Chart.PaneWidth(.f.) = 48
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 48"
oG2antt.Columns.Add("Task")
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/02/2002},{01/04/2002},"A")
var_Items.AddBar(h,"Task",{01/06/2002},{01/10/2002},"B")
var_Items.AddBar(h,"Task",{01/11/2002},{01/14/2002},"C")
' var_Items.ItemBar(h,"A",257) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`A`,257) = True"
' var_Items.ItemBar(h,"B",257) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`B`,257) = True"
oG2antt.EndUpdate()
|
|
942
|
Can I display a larger marker for selected bars, eventually using the EBN technology
Dim h as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2002}
var_Chart.SelBarColor = 16777216
' var_Chart.PaneWidth(.f.) = 48
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 48"
oG2antt.Columns.Add("Task")
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/02/2002},{01/04/2002},"A")
var_Items.AddBar(h,"Task",{01/06/2002},{01/10/2002},"B")
var_Items.AddBar(h,"Task",{01/11/2002},{01/14/2002},"C")
' var_Items.ItemBar(h,"A",257) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`A`,257) = True"
' var_Items.ItemBar(h,"B",257) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`B`,257) = True"
oG2antt.EndUpdate()
|
|
941
|
How do I change the color for the selected bars
Dim h as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Debug = .t.
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2002}
var_Chart.SelBarColor = 255
' var_Chart.PaneWidth(.f.) = 48
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 48"
oG2antt.Columns.Add("Task")
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/02/2002},{01/04/2002},"A")
var_Items.AddBar(h,"Task",{01/06/2002},{01/10/2002},"B")
var_Items.AddBar(h,"Task",{01/11/2002},{01/14/2002},"C")
' var_Items.ItemBar(h,"A",257) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`A`,257) = True"
' var_Items.ItemBar(h,"B",257) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`B`,257) = True"
oG2antt.EndUpdate()
|
|
940
|
How can I change the background color for child bars of a summary bar
Dim h1 as N
Dim hR1 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.HasLines = .f.
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = .f.
var_Chart.AllowLinkBars = .f.
var_Chart.FirstVisibleDate = {01/01/2008}
var_Chart.LevelCount = 2
' var_Chart.PaneWidth(.f.) = 112
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 112"
oG2antt.Columns.Add("")
var_Items = oG2antt.Items
hR1 = var_Items.AddItem("Team 1")
var_Items.AddBar(hR1,"Summary",{01/02/2008},{01/08/2008},"")
' var_Items.ItemBar(hR1,"",34) = 12895428
oG2antt.TemplateDef = "dim var_Items,hR1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = hR1
oG2antt.Template = "var_Items.ItemBar(hR1,``,34) = 12895428"
h1 = var_Items.InsertItem(hR1,,"Member 1")
var_Items.AddBar(h1,"Task",{01/02/2008},{01/07/2008})
var_Items.DefineSummaryBars(hR1,"",h1,"")
h1 = var_Items.InsertItem(hR1,,"Member 2")
var_Items.AddBar(h1,"Task",{01/04/2008},{01/09/2008})
var_Items.DefineSummaryBars(hR1,"",h1,"")
h1 = var_Items.InsertItem(hR1,,"Member 3")
var_Items.AddBar(h1,"Task",{01/05/2008},{01/10/2008})
var_Items.DefineSummaryBars(hR1,"",h1,"")
' var_Items.ExpandItem(hR1) = .t.
oG2antt.TemplateDef = "dim var_Items,hR1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = hR1
oG2antt.Template = "var_Items.ExpandItem(hR1) = True"
oG2antt.EndUpdate()
|
|
939
|
How can I allow resizing the bar only in the right part of the bar
Dim h as N
Dim oG2antt as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/02/2001},{01/06/2001},"K1")
' var_Items.ItemBar(h,"K1",10) = 2
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K1`,10) = 2"
|
|
938
|
How can I allow resizing the bar only in the left part of the bar
Dim h as N
Dim oG2antt as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",{01/02/2001},{01/06/2001},"K1")
' var_Items.ItemBar(h,"K1",10) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ItemBar(h,`K1`,10) = 1"
|
|
937
|
How can I show the links that starts from selected bar being more visible, while the rest being transparent
Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {09/20/2006}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 64"
' var_Chart.ShowLinksWidth(1) = 2
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.ShowLinksWidth(1) = 2"
' var_Chart.ShowLinksStyle(1) = 2
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.ShowLinksStyle(1) = 2"
' var_Chart.ShowLinksColor(2) = 13158600
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.ShowLinksColor(2) = 13158600"
' var_Chart.ShowLinksColor(4) = 13158600
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.ShowLinksColor(4) = 13158600"
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",{09/21/2006},{09/23/2006})
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",{09/25/2006},{09/27/2006})
' var_Items.ItemBar(h2,"",257) = .t.
oG2antt.TemplateDef = "dim var_Items,h2"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h2
oG2antt.Template = "var_Items.ItemBar(h2,``,257) = True"
var_Items.AddLink("L1",h1,"",h2,"")
' var_Items.Link("L1",12) = "L1"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`L1`,12) = `L1`"
h3 = var_Items.AddItem("Task 3")
var_Items.AddBar(h3,"Task",{09/29/2006},{10/02/2006})
var_Items.AddLink("L2",h2,"",h3,"")
' var_Items.Link("L2",12) = "L2"
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`L2`,12) = `L2`"
oG2antt.EndUpdate()
|
|
936
|
How can I show only the links that starts from selected bar
Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = .f.
oG2antt.OnResizeControl = 1
oG2antt.Columns.Add("Tasks")
' oG2antt.Columns.Add("Start").Visible = .f.
var_Column = oG2antt.Columns.Add("Start")
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Visible = False"
' oG2antt.Columns.Add("End").Visible = .f.
var_Column1 = oG2antt.Columns.Add("End")
oG2antt.TemplateDef = "dim var_Column1"
oG2antt.TemplateDef = var_Column1
oG2antt.Template = "var_Column1.Visible = False"
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {09/20/2006}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 64"
' var_Chart.ShowLinksColor(2) = var_Chart.BackColor
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.ShowLinksColor(2) = BackColor"
' var_Chart.ShowLinksColor(4) = var_Chart.BackColor
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.ShowLinksColor(4) = BackColor"
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
' var_Items.CellValue(h1,1) = {09/21/2006}
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellValue(h1,1) = #9/21/2006#"
' var_Items.CellValue(h1,2) = {09/24/2006}
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellValue(h1,2) = #9/24/2006#"
var_Items.AddBar(h1,"Task",var_Items.CellValue(h1,1),var_Items.CellValue(h1,2))
h2 = var_Items.InsertItem(h,,"Task 2")
' var_Items.CellValue(h2,1) = {09/25/2006}
oG2antt.TemplateDef = "dim var_Items,h2"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h2
oG2antt.Template = "var_Items.CellValue(h2,1) = #9/25/2006#"
' var_Items.CellValue(h2,2) = {09/28/2006}
oG2antt.TemplateDef = "dim var_Items,h2"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h2
oG2antt.Template = "var_Items.CellValue(h2,2) = #9/28/2006#"
var_Items.AddBar(h2,"Task",var_Items.CellValue(h2,1),var_Items.CellValue(h2,2))
' var_Items.ItemBar(h2,"",257) = .t.
oG2antt.TemplateDef = "dim var_Items,h2"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h2
oG2antt.Template = "var_Items.ItemBar(h2,``,257) = True"
var_Items.AddLink("L1",h1,"",h2,"")
h3 = var_Items.InsertItem(h,,"Task 3")
' var_Items.CellValue(h3,1) = {09/29/2006}
oG2antt.TemplateDef = "dim var_Items,h3"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h3
oG2antt.Template = "var_Items.CellValue(h3,1) = #9/29/2006#"
' var_Items.CellValue(h3,2) = {10/02/2006}
oG2antt.TemplateDef = "dim var_Items,h3"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h3
oG2antt.Template = "var_Items.CellValue(h3,2) = #10/2/2006#"
var_Items.AddBar(h3,"Task",var_Items.CellValue(h3,1),var_Items.CellValue(h3,2))
var_Items.AddLink("L2",h2,"",h3,"")
oG2antt.EndUpdate()
|
|
935
|
How can I hide links that are not related to selected bar
Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = .f.
oG2antt.OnResizeControl = 1
oG2antt.Columns.Add("Tasks")
' oG2antt.Columns.Add("Start").Visible = .f.
var_Column = oG2antt.Columns.Add("Start")
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Visible = False"
' oG2antt.Columns.Add("End").Visible = .f.
var_Column1 = oG2antt.Columns.Add("End")
oG2antt.TemplateDef = "dim var_Column1"
oG2antt.TemplateDef = var_Column1
oG2antt.Template = "var_Column1.Visible = False"
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {09/20/2006}
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 64"
' var_Chart.ShowLinksColor(4) = var_Chart.BackColor
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.ShowLinksColor(4) = BackColor"
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
' var_Items.CellValue(h1,1) = {09/21/2006}
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellValue(h1,1) = #9/21/2006#"
' var_Items.CellValue(h1,2) = {09/24/2006}
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellValue(h1,2) = #9/24/2006#"
var_Items.AddBar(h1,"Task",var_Items.CellValue(h1,1),var_Items.CellValue(h1,2))
' var_Items.ItemBar(h1,"",257) = .t.
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,``,257) = True"
h2 = var_Items.InsertItem(h,,"Task 2")
' var_Items.CellValue(h2,1) = {09/25/2006}
oG2antt.TemplateDef = "dim var_Items,h2"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h2
oG2antt.Template = "var_Items.CellValue(h2,1) = #9/25/2006#"
' var_Items.CellValue(h2,2) = {09/28/2006}
oG2antt.TemplateDef = "dim var_Items,h2"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h2
oG2antt.Template = "var_Items.CellValue(h2,2) = #9/28/2006#"
var_Items.AddBar(h2,"Task",var_Items.CellValue(h2,1),var_Items.CellValue(h2,2))
var_Items.AddLink("L1",h1,"",h2,"")
h3 = var_Items.InsertItem(h,,"Task 3")
' var_Items.CellValue(h3,1) = {09/29/2006}
oG2antt.TemplateDef = "dim var_Items,h3"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h3
oG2antt.Template = "var_Items.CellValue(h3,1) = #9/29/2006#"
' var_Items.CellValue(h3,2) = {10/02/2006}
oG2antt.TemplateDef = "dim var_Items,h3"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h3
oG2antt.Template = "var_Items.CellValue(h3,2) = #10/2/2006#"
var_Items.AddBar(h3,"Task",var_Items.CellValue(h3,1),var_Items.CellValue(h3,2))
var_Items.AddLink("L2",h2,"",h3,"")
oG2antt.EndUpdate()
|
|
934
|
How can I show the direction of the link using EBN files
Dim h1 as N
Dim h2 as N
Dim oG2antt as P
Dim var_Appearance as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Appearance = oG2antt.VisualAppearance
var_Appearance.Add(1,"c:\exontrol\images\normal.ebn")
var_Appearance.Add(2,"CP:1 -1 -1 1 1")
var_Appearance.Add(3,"CP:1 -2 -2 2 2")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2001}
' var_Chart.PaneWidth(.f.) = 128
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 128"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"B1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",{01/05/2001},{01/13/2001},"B2")
var_Items.AddLink("L1",h1,"B1",h2,"B2")
' var_Items.Link("L1",14) = 16777216
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`L1`,14) = 16777216"
h2 = var_Items.AddItem("Task 3")
var_Items.AddBar(h2,"Task",{01/05/2001},{01/13/2001},"B3")
var_Items.AddLink("L2",h1,"B1",h2,"B3")
' var_Items.Link("L2",14) = 33554432
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`L2`,14) = 33554432"
h2 = var_Items.AddItem("Task 4")
var_Items.AddBar(h2,"Task",{01/05/2001},{01/13/2001},"B5")
var_Items.AddLink("L3",h1,"B1",h2,"B5")
' var_Items.Link("L3",14) = 50331648
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`L3`,14) = 50331648"
oG2antt.EndUpdate()
|
|
933
|
How can I show round links
Dim oG2antt as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001},"B1")
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",{01/05/2001},{01/13/2001},"B2")
var_Items.AddLink("L1",var_Items.FindItem("Item 1",0),"B1",var_Items.FindItem("Item 2",0),"B2")
' var_Items.Link("L1",15) = .t.
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`L1`,15) = True"
|
|
932
|
How can I change the color to display the arrow of the link
Dim oG2antt as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.Chart.FirstVisibleDate = {01/01/2001}
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001},"B1")
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",{01/06/2001},{01/14/2001},"B2")
var_Items.AddLink("L1",var_Items.FindItem("Item 1",0),"B1",var_Items.FindItem("Item 2",0),"B2")
' var_Items.Link("L1",14) = 255
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.Link(`L1`,14) = 255"
|
|
931
|
I use UnitScale: exHour and I want to show only from 9 to 18 hour. The idea is to show only the working part of a day. Is this possible
Dim oG2antt as P
Dim var_Chart as P
Dim var_Level as P
Dim var_Level1 as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.MarkTodayColor = var_Chart.BackColor
var_Chart.BackColorLevelHeader = 16777215
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 0"
var_Chart.LevelCount = 2
var_Level = var_Chart.Level(0)
var_Level.Label = "<b><%dddd%></b> <%d%>"
var_Level.Alignment = 1
var_Level.DrawTickLines = 0
var_Level1 = var_Chart.Level(1)
var_Level1.Label = 65536
var_Level1.DrawTickLines = 65 'exLevelMiddleLine + exLevelDotLine
var_Level1.DrawTickLinesFrom(0,1)
var_Chart.NonworkingHours = 16253439
var_Chart.ShowNonworkingUnits = .f.
var_Chart.ShowNonworkingDates = .f.
var_Chart.ShowNonworkingHours = .f.
oG2antt.EndUpdate()
|
|
930
|
Can I display tick lines from other level to my base level so time units gets separated more clearly
Dim oG2antt as P
Dim var_Chart as P
Dim var_Level as P
Dim var_Level1 as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.DrawLevelSeparator = 0
var_Chart.UnitWidth = 24
var_Chart.FirstVisibleDate = {01/01/2001}
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 0"
var_Chart.LevelCount = 2
var_Level = var_Chart.Level(0)
var_Level.Alignment = 1
var_Level.Label = "<%dddd%>"
var_Level.DrawTickLines = 18 'exLevelLowerHalf + exLevelSolidLine
var_Level1 = var_Chart.Level(1)
var_Level1.Label = 65536
var_Level1.Count = 6
var_Level1.DrawTickLines = 66 'exLevelMiddleLine + exLevelSolidLine
var_Level1.DrawTickLinesFrom(0,2)
oG2antt.EndUpdate()
|
|
929
|
Is there any property to change the style of the tick lines being shown in the chart
Dim oG2antt as P
Dim var_Chart as P
Dim var_Level as P
Dim var_Level1 as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.UnitWidth = 24
var_Chart.FirstVisibleDate = {01/01/2001}
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 0"
var_Chart.LevelCount = 2
var_Level = var_Chart.Level(0)
var_Level.Alignment = 1
var_Level.Label = "<%dddd%>"
var_Level.DrawTickLines = 2
var_Level1 = var_Chart.Level(1)
var_Level1.Label = 65536
var_Level1.Count = 6
var_Level1.DrawTickLines = 34 'exLevelUpperHalf + exLevelSolidLine
var_Chart.DrawLevelSeparator = 2
oG2antt.EndUpdate()
|
|
928
|
Is there any property to change the style of the tick lines being shown in the chart
Dim oG2antt as P
Dim var_Chart as P
Dim var_Level as P
Dim var_Level1 as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2001}
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 0"
var_Chart.LevelCount = 2
var_Chart.DrawLevelSeparator = 2
var_Level = var_Chart.Level(0)
var_Level.Label = "<%dddd%>"
var_Level.DrawTickLines = 2
var_Level1 = var_Chart.Level(1)
var_Level1.Label = 65536
var_Level1.Count = 6
var_Level1.DrawTickLines = 2
oG2antt.EndUpdate()
|
|
927
|
How can I show the levels based on the base level so tick lines aligns better
Dim oG2antt as P
Dim var_Chart as P
Dim var_Level as local
Dim var_Level1 as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.AdjustLevelsToBase = .t.
var_Chart.UnitWidth = 24
var_Chart.FirstVisibleDate = {01/01/2001}
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 0"
var_Chart.LevelCount = 2
' var_Chart.Level(0).Label = "<%dddd%>"
var_Level = var_Chart.Level(0)
oG2antt.TemplateDef = "dim var_Level"
oG2antt.TemplateDef = var_Level
oG2antt.Template = "var_Level.Label = `<%dddd%>`"
var_Level1 = var_Chart.Level(1)
var_Level1.Label = 65536
var_Level1.Count = 5
oG2antt.EndUpdate()
|
|
926
|
How can I show only working hours in other words only the working part of the day
Dim oG2antt as P
Dim var_Chart as P
Dim var_Level as P
Dim var_Level1 as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.AllowSelectDate = .f.
var_Chart.MarkTodayColor = var_Chart.BackColor
' var_Chart.PaneWidth(.f.) = 0
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 0"
var_Chart.LevelCount = 2
var_Level = var_Chart.Level(0)
var_Level.Label = "<b><%dddd%></b> <%d%>"
var_Level.Alignment = 1
var_Level.DrawTickLines = .f.
var_Level1 = var_Chart.Level(1)
var_Level1.Label = 65536
' var_Level1.ReplaceLabel("09") = "<fgcolor=FF0000><b><font ;10>9</font></b></fgcolor>"
oG2antt.TemplateDef = "dim var_Level1"
oG2antt.TemplateDef = var_Level1
oG2antt.Template = "var_Level1.ReplaceLabel(`09`) = `<fgcolor=FF0000><b><font ;10>9</font></b></fgcolor>`"
var_Chart.NonworkingHours = 16253439
var_Chart.ShowNonworkingUnits = .f.
var_Chart.ShowNonworkingDates = .f.
var_Chart.ShowNonworkingHours = .f.
oG2antt.EndUpdate()
|
|
925
|
How can I specify the effort for bars when displaying the overload histogram
Dim h1 as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.NonworkingDays = 0
' var_Chart.PaneWidth(.f.) = 52
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 52"
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 64
var_Chart.HistogramView = 112
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = var_Bar.Pattern
var_Bar.HistogramType = 0
var_Bar.HistogramItems = -6
var_Bar.HistogramGridLinesColor = 12632256
var_Bar.HistogramRulerLinesColor = 65536
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",{06/21/2005},{06/23/2005},"","4")
' var_Items.ItemBar(h1,"",21) = 4
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,``,21) = 4"
h1 = var_Items.AddItem("Task 2")
var_Items.AddBar(h1,"Task",{06/24/2005},{06/26/2005},"",3)
' var_Items.ItemBar(h1,"",21) = 3
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,``,21) = 3"
h1 = var_Items.AddItem("Task 3")
var_Items.AddBar(h1,"Task",{06/27/2005},{06/29/2005},"",2)
' var_Items.ItemBar(h1,"",21) = 2
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,``,21) = 2"
h1 = var_Items.AddItem("Task 4")
var_Items.AddBar(h1,"Task",{06/30/2005},{07/02/2005},"",1)
oG2antt.EndUpdate()
|
|
924
|
How can I display the cumulative histogram and showing the bars that generated it using different colors
Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Column as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 64
' var_Chart.PaneWidth(.f.) = 128
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 128"
var_Chart.HistogramView = 1300 'exHistogramNoGrouping + exHistogramLeafItems + exHistogramUnlockedItems + exHistogramCheckedItems
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = 1
var_Bar.HistogramType = 256
var_Bar.HistogramCumulativeOriginalColorBars = .f.
var_Bar.HistogramItems = 6
var_Bar.HistogramRulerLinesColor = 128
var_Bar.HistogramBorderColor = 1
var_Column = oG2antt.Columns.Add("Column")
' var_Column.Def(0) = .t.
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(0) = True"
var_Column.PartialCheck = .t.
var_Items = oG2antt.Items
h = var_Items.AddItem("Project 1")
var_Items.AddBar(var_Items.InsertItem(h,,"Item 1"),"Task",{01/02/2001},{01/04/2001})
var_Items.AddBar(var_Items.InsertItem(h,,"Item 2"),"Task",{01/03/2001},{01/05/2001})
var_Items.AddBar(var_Items.InsertItem(h,,"Item 3"),"Task",{01/04/2001},{01/06/2001})
var_Items.AddBar(var_Items.InsertItem(h,,"Item 4"),"Task",{01/02/2001},{01/08/2001})
' var_Items.CellState(var_Items.ItemByIndex(1),0) = 1
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellState(ItemByIndex(1),0) = 1"
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
oG2antt.EndUpdate()
|
|
923
|
How can I show the cumulative histogram for my bar
Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Column as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 64
' var_Chart.PaneWidth(.f.) = 128
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 128"
var_Chart.HistogramView = 1300 'exHistogramNoGrouping + exHistogramLeafItems + exHistogramUnlockedItems + exHistogramCheckedItems
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = 1
var_Bar.HistogramType = 256
var_Bar.HistogramItems = 6
var_Bar.HistogramRulerLinesColor = 128
var_Bar.HistogramBorderColor = 1
var_Column = oG2antt.Columns.Add("Column")
' var_Column.Def(0) = .t.
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(0) = True"
var_Column.PartialCheck = .t.
var_Items = oG2antt.Items
h = var_Items.AddItem("Project 1")
var_Items.AddBar(var_Items.InsertItem(h,,"Item 1"),"Task",{01/02/2001},{01/04/2001})
var_Items.AddBar(var_Items.InsertItem(h,,"Item 2"),"Task",{01/03/2001},{01/05/2001})
var_Items.AddBar(var_Items.InsertItem(h,,"Item 3"),"Task",{01/04/2001},{01/06/2001})
var_Items.AddBar(var_Items.InsertItem(h,,"Item 4"),"Task",{01/02/2001},{01/08/2001})
' var_Items.CellState(var_Items.ItemByIndex(1),0) = 1
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.CellState(ItemByIndex(1),0) = 1"
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
oG2antt.EndUpdate()
|
|
922
|
How can I show some grid lines or ruler in the histogram
Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 64
' var_Chart.PaneWidth(.f.) = 78
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 78"
var_Chart.HistogramView = 1300 'exHistogramNoGrouping + exHistogramLeafItems + exHistogramUnlockedItems + exHistogramCheckedItems
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = 6
var_Bar.HistogramItems = 6
var_Bar.HistogramRulerLinesColor = 128
var_Bar.HistogramGridLinesColor = 255
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
h = var_Items.AddItem("Project 1")
' var_Items.CellHasCheckBox(h,0) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellHasCheckBox(h,0) = True"
' var_Items.CellState(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellState(h,0) = 1"
var_Items.AddBar(var_Items.InsertItem(h,,"Item 1"),"Task",{01/02/2001},{01/04/2001})
var_Items.AddBar(var_Items.InsertItem(h,,"Item 2"),"Task",{01/03/2001},{01/05/2001})
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
|
|
921
|
Is there any property to show some grid lines in the histogram
Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 64
' var_Chart.PaneWidth(.f.) = 78
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 78"
var_Chart.HistogramView = 1300 'exHistogramNoGrouping + exHistogramLeafItems + exHistogramUnlockedItems + exHistogramCheckedItems
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = 6
var_Bar.HistogramItems = 6
var_Bar.HistogramGridLinesColor = 255
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
h = var_Items.AddItem("Project 1")
' var_Items.CellHasCheckBox(h,0) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellHasCheckBox(h,0) = True"
' var_Items.CellState(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellState(h,0) = 1"
var_Items.AddBar(var_Items.InsertItem(h,,"Item 1"),"Task",{01/02/2001},{01/04/2001})
var_Items.AddBar(var_Items.InsertItem(h,,"Item 2"),"Task",{01/03/2001},{01/05/2001})
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
|
|
920
|
How can I specify a fixed number of bars/items being shown in the histogram
Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 64
' var_Chart.PaneWidth(.f.) = 78
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 78"
var_Chart.HistogramView = 1300 'exHistogramNoGrouping + exHistogramLeafItems + exHistogramUnlockedItems + exHistogramCheckedItems
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = 6
var_Bar.HistogramCriticalValue = 3
var_Bar.HistogramItems = -6
var_Bar.HistogramRulerLinesColor = 1
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
h = var_Items.AddItem("Project 1")
' var_Items.CellHasCheckBox(h,0) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellHasCheckBox(h,0) = True"
' var_Items.CellState(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellState(h,0) = 1"
var_Items.AddBar(var_Items.InsertItem(h,,"Item 1"),"Task",{01/02/2001},{01/04/2001})
var_Items.AddBar(var_Items.InsertItem(h,,"Item 2"),"Task",{01/03/2001},{01/05/2001})
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Project 2")
' var_Items.CellHasCheckBox(h,0) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellHasCheckBox(h,0) = True"
' var_Items.CellState(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellState(h,0) = 1"
var_Items.AddBar(var_Items.InsertItem(h,,"Item 1"),"Task",{01/04/2001},{01/07/2001})
var_Items.AddBar(var_Items.InsertItem(h,,"Item 2"),"Task",{01/06/2001},{01/08/2001})
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Project 3")
' var_Items.CellHasCheckBox(h,0) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellHasCheckBox(h,0) = True"
' var_Items.CellState(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellState(h,0) = 1"
var_Items.AddBar(var_Items.InsertItem(h,,"Item 1"),"Task",{01/02/2001},{01/04/2001})
var_Items.AddBar(var_Items.InsertItem(h,,"Item 2"),"Task",{01/03/2001},{01/05/2001})
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Project 4")
' var_Items.CellHasCheckBox(h,0) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellHasCheckBox(h,0) = True"
' var_Items.CellState(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellState(h,0) = 1"
var_Items.AddBar(var_Items.InsertItem(h,,"Item 1"),"Task",{01/04/2001},{01/07/2001})
var_Items.AddBar(var_Items.InsertItem(h,,"Item 2"),"Task",{01/06/2001},{01/08/2001})
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
|
|
919
|
Is there any option to specify a minimum number of bars/items displayed in the histogram
Dim h as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 64
' var_Chart.PaneWidth(.f.) = 78
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 78"
var_Chart.HistogramView = 1300 'exHistogramNoGrouping + exHistogramLeafItems + exHistogramUnlockedItems + exHistogramCheckedItems
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = 6
var_Bar.HistogramItems = 6
var_Bar.HistogramGridLinesColor = 1
var_Bar.HistogramRulerLinesColor = 1
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
h = var_Items.AddItem("Project 1")
' var_Items.CellHasCheckBox(h,0) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellHasCheckBox(h,0) = True"
' var_Items.CellState(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellState(h,0) = 1"
var_Items.AddBar(var_Items.InsertItem(h,,"Item 1"),"Task",{01/02/2001},{01/04/2001})
var_Items.AddBar(var_Items.InsertItem(h,,"Item 2"),"Task",{01/03/2001},{01/05/2001})
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Project 2")
' var_Items.CellHasCheckBox(h,0) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellHasCheckBox(h,0) = True"
' var_Items.CellState(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellState(h,0) = 1"
var_Items.AddBar(var_Items.InsertItem(h,,"Item 1"),"Task",{01/04/2001},{01/07/2001})
var_Items.AddBar(var_Items.InsertItem(h,,"Item 2"),"Task",{01/06/2001},{01/08/2001})
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
|
|
918
|
How can I show the histogram without grouping the bars based on their parents
Dim h as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 32
var_Chart.HistogramView = 1300 'exHistogramNoGrouping + exHistogramLeafItems + exHistogramUnlockedItems + exHistogramCheckedItems
var_Chart.Bars.Item("Task").HistogramPattern = 6
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
h = var_Items.AddItem("Project 1")
' var_Items.CellHasCheckBox(h,0) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellHasCheckBox(h,0) = True"
' var_Items.CellState(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellState(h,0) = 1"
var_Items.AddBar(var_Items.InsertItem(h,,"Item 1"),"Task",{01/02/2001},{01/04/2001})
var_Items.AddBar(var_Items.InsertItem(h,,"Item 2"),"Task",{01/03/2001},{01/05/2001})
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.AddItem("Project 2")
' var_Items.CellHasCheckBox(h,0) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellHasCheckBox(h,0) = True"
' var_Items.CellState(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellState(h,0) = 1"
var_Items.AddBar(var_Items.InsertItem(h,,"Item 1"),"Task",{01/04/2001},{01/07/2001})
var_Items.AddBar(var_Items.InsertItem(h,,"Item 2"),"Task",{01/06/2001},{01/08/2001})
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
|
|
917
|
How can I show the histogram for checked item and all recursively child items
Dim h as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
' var_Chart.PaneWidth(.f.) = 128
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 128"
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 128
var_Chart.HistogramView = 788 'exHistogramRecLeafItems + exHistogramLeafItems + exHistogramUnlockedItems + exHistogramCheckedItems
var_Chart.Bars.Item("Task").HistogramPattern = 6
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
' var_Items.CellHasCheckBox(h,0) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellHasCheckBox(h,0) = True"
' var_Items.CellState(h,0) = 1
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellState(h,0) = 1"
var_Items.AddBar(var_Items.InsertItem(h,,"Item 1"),"Task",{01/02/2001},{01/04/2001})
var_Items.AddBar(var_Items.InsertItem(h,,"Item 2"),"Task",{01/03/2001},{01/05/2001})
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
h = var_Items.InsertItem(h,,"SubProject")
var_Items.AddBar(var_Items.InsertItem(h,,"Item 1"),"Task",{01/03/2001},{01/07/2001})
var_Items.AddBar(var_Items.InsertItem(h,,"Item 2"),"Task",{01/05/2001},{01/08/2001})
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
oG2antt.EndUpdate()
|
|
916
|
How can I show the histogram for checked item and its child items
Dim h as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 32
var_Chart.HistogramView = 276 'exHistogramLeafItems + exHistogramUnlockedItems + exHistogramCheckedItems
var_Chart.Bars.Item("Task").HistogramPattern = 6
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
' var_Items.CellHasCheckBox(h,0) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.CellHasCheckBox(h,0) = True"
var_Items.AddBar(var_Items.InsertItem(h,,"Item 1"),"Task",{01/02/2001},{01/04/2001})
var_Items.AddBar(var_Items.InsertItem(h,,"Item 2"),"Task",{01/03/2001},{01/07/2001})
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
|
|
915
|
How can I show the histogram for all items
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.SingleSel = .f.
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.LevelCount = 2
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 32
var_Chart.HistogramView = 112
var_Chart.Bars.Item("Task").HistogramPattern = 6
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001})
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",{01/03/2001},{01/07/2001})
oG2antt.EndUpdate()
|
|
914
|
How can I prevent selecting a new item when clicking the chart area so my selection is shown in the histogram
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.SingleSel = .f.
var_Chart = oG2antt.Chart
var_Chart.SelectOnClick = .f.
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 32
var_Chart.HistogramView = 2
var_Chart.Bars.Item("Task").HistogramPattern = 6
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001})
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",{01/03/2001},{01/07/2001})
' var_Items.SelectItem(var_Items.ItemByIndex(0)) = .t.
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.SelectItem(ItemByIndex(0)) = True"
|
|
913
|
How can I show bars in the histogram for selected items only
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.SingleSel = .f.
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {01/01/2001}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 32
var_Chart.HistogramView = 2
var_Chart.Bars.Item("Task").HistogramPattern = 6
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",{01/02/2001},{01/04/2001})
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",{01/03/2001},{01/07/2001})
' var_Items.SelectItem(var_Items.ItemByIndex(0)) = .t.
oG2antt.TemplateDef = "dim var_Items"
oG2antt.TemplateDef = var_Items
oG2antt.Template = "var_Items.SelectItem(ItemByIndex(0)) = True"
|
|
912
|
How can I change the color and size for the curve in the histogram
Dim h1 as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.NonworkingDays = 0
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 64"
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 68
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = 258 '100 + exPatternDot
var_Bar.HistogramBorderColor = 65280
var_Bar.HistogramBorderSize = 5
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task")
var_Items.AddBar(h1,"Task",{06/21/2005},{06/25/2005},1,1)
var_Items.AddBar(h1,"Task",{06/23/2005},{06/28/2005},2,2)
oG2antt.EndUpdate()
|
|
911
|
How can I change the color for the frame in the histogram
Dim h1 as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.NonworkingDays = 0
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 64"
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 68
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = 259 '100 + exPatternShadow
var_Bar.HistogramItems = 5
var_Bar.HistogramBorderColor = 255
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task")
var_Items.AddBar(h1,"Task",{06/21/2005},{06/25/2005},1,1)
var_Items.AddBar(h1,"Task",{06/23/2005},{06/28/2005},2,2)
oG2antt.EndUpdate()
|
|
910
|
How can I force the histogram for a bar being shown all the time
Dim h1 as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Bar1 as P
Dim var_Chart as P
Dim var_Column as local
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.ScrollBySingleLine = .t.
' oG2antt.Columns.Add("Tasks").Def(0) = .t.
var_Column = oG2antt.Columns.Add("Tasks")
oG2antt.TemplateDef = "dim var_Column"
oG2antt.TemplateDef = var_Column
oG2antt.Template = "var_Column.Def(0) = True"
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.NonworkingDays = 0
' var_Chart.PaneWidth(.f.) = 64
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 64"
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 68
var_Chart.HistogramView = 20 'exHistogramUnlockedItems + exHistogramCheckedItems
var_Bar = var_Chart.Bars.Copy("Task","H")
var_Bar.Color = 65280
var_Bar.HistogramPattern = 256 '100 +
var_Bar.HistogramItems = 5
var_Bar.HistogramColor = var_Bar.Color
var_Bar.HistogramGridLinesColor = 8421504
var_Bar.HistogramRulerLinesColor = 65536
var_Bar1 = var_Chart.Bars.Item("Task")
var_Bar1.HistogramCriticalColor = 8388608
var_Bar1.HistogramPattern = var_Bar1.Pattern
var_Bar1.HistogramItems = 5
var_Bar1.HistogramGridLinesColor = 8421504
var_Bar1.HistogramRulerLinesColor = 65536
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Hidden")
var_Items.AddBar(h1,"H",{06/23/2005},{06/28/2005},1)
var_Items.AddBar(h1,"H",{06/24/2005},{06/26/2005},2)
' var_Items.CellState(h1,0) = 1
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellState(h1,0) = 1"
' var_Items.ItemHeight(h1) = 0
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemHeight(h1) = 0"
' var_Items.SelectableItem(h1) = .f.
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.SelectableItem(h1) = False"
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",{06/21/2005},{06/25/2005},1)
' var_Items.CellState(h1,0) = 1
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellState(h1,0) = 1"
h1 = var_Items.AddItem("Task 2")
' var_Items.CellState(h1,0) = 1
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.CellState(h1,0) = 1"
var_Items.AddBar(h1,"Task",{06/24/2005},{07/01/2005},1)
oG2antt.EndUpdate()
|
|
909
|
How can I remove a bar type from the histogram
Dim h1 as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Bar1 as P
Dim var_Bar2 as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.NonworkingDays = 0
' var_Chart.PaneWidth(.f.) = 40
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 40"
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 32
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramCriticalColor = 8388608
var_Bar.HistogramPattern = var_Bar.Pattern
var_Bar1 = var_Chart.Bars.Copy("Task","Green")
var_Bar1.Color = 65280
var_Bar1.HistogramPattern = var_Bar1.Pattern
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Green",{06/22/2005},{06/26/2005},0)
var_Items.AddBar(h1,"Task",{06/21/2005},{06/25/2005},1)
' var_Items.ItemBar(h1,1,18) = 3
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,1,18) = 3"
h1 = var_Items.AddItem("Task 2")
var_Items.AddBar(h1,"Green",{06/28/2005},{06/30/2005},0)
var_Items.AddBar(h1,"Task",{06/27/2005},{07/01/2005},1)
' var_Items.ItemBar(h1,1,18) = 3
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,1,18) = 3"
var_Bar2 = oG2antt.Chart.Bars.Item("Green")
var_Bar2.HistogramColor = var_Bar2.Color
var_Bar2.HistogramPattern = 0
oG2antt.EndUpdate()
|
|
908
|
How can I show the two buttons in the vertical splitter but still resizes the chart when the control gets resized
Dim oG2antt as P
Dim var_Chart as local
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.OnResizeControl = 513 'exSplitterShowButtons + exResizeChart
' oG2antt.Chart.PaneWidth(.f.) = 96
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
oG2antt.Chart.LevelCount = 2
|
|
907
|
I have seen a screen shot on your web page that shows two buttons on the vertical scroll bar. How can I show them
Dim oG2antt as P
Dim var_Chart as local
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.OnResizeControl = 512
' oG2antt.Chart.PaneWidth(.f.) = 96
var_Chart = oG2antt.Chart
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(False) = 96"
|
|
906
|
How can I disable selecting a new item once the user clicks the chart area
Dim h1 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
oG2antt.SingleSel = .f.
var_Chart = oG2antt.Chart
var_Chart.SelectOnClick = .f.
var_Chart.AllowCreateBar = 1
var_Chart.LevelCount = 2
' var_Chart.PaneWidth(.f.) = 40
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 40"
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 32
var_Chart.HistogramView = 2
var_Chart.Bars.Item("Task").HistogramPattern = 1
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",{06/22/2005},{06/26/2005},0)
' var_Items.SelectItem(h1) = .t.
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.SelectItem(h1) = True"
h1 = var_Items.AddItem("Task 2")
var_Items.AddBar(h1,"Task",{06/24/2005},{06/30/2005},0)
' var_Items.SelectItem(h1) = .t.
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.SelectItem(h1) = True"
oG2antt.EndUpdate()
|
|
905
|
Is there any option to display the chart's header in the bottom side of the histogram
Dim h1 as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Bar1 as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.NonworkingDays = 0
' var_Chart.PaneWidth(.f.) = 40
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 40"
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramView = 112
var_Chart.HistogramHeight = 96
var_Chart.HistogramHeaderVisible = .t.
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.Color = 16711680
var_Bar.OverlaidType = 1
var_Bar.OverlaidGroup = "Task2"
var_Bar.HistogramCriticalColor = 8388608
var_Bar.HistogramPattern = 512
var_Bar.HistogramType = 1
var_Bar1 = var_Chart.Bars.Copy("Task","Task2")
var_Bar1.Color = 65280
var_Bar1.OverlaidType = 1
var_Bar1.OverlaidGroup = "Task"
var_Bar1.HistogramCriticalColor = 32768
var_Bar1.HistogramPattern = 512
var_Bar1.HistogramType = 1
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task2",{06/22/2005},{06/26/2005},0)
var_Items.AddBar(h1,"Task",{06/21/2005},{06/25/2005},1)
' var_Items.ItemBar(h1,0,21) = 3
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,0,21) = 3"
' var_Items.ItemBar(h1,1,21) = 4
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,1,21) = 4"
h1 = var_Items.AddItem("Task 2")
var_Items.AddBar(h1,"Task2",{06/28/2005},{06/30/2005},0)
var_Items.AddBar(h1,"Task",{06/27/2005},{07/01/2005},1)
' var_Items.ItemBar(h1,0,21) = 4
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,0,21) = 4"
' var_Items.ItemBar(h1,1,21) = 1
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,1,21) = 1"
oG2antt.EndUpdate()
|
|
904
|
How can I display the child bars as soon as an item gets collapsed
Dim h as N
Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oG2antt as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = {09/20/2006}
var_Chart.ShowCollapsedBars = .t.
var_Chart.LevelCount = 2
' var_Chart.PaneWidth(.f.) = 96
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 96"
var_Items = oG2antt.Items
h = var_Items.AddItem("Project 1")
h1 = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(h1,"Task",{09/21/2006},{09/23/2006},"A")
h2 = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(h2,"Task",{09/24/2006},{09/26/2006},"B")
h3 = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(h3,"Task",{09/27/2006},{09/29/2006},"C")
h = var_Items.AddItem("Project 2")
h1 = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(h1,"Task",{09/21/2006},{09/23/2006},"A")
h2 = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(h2,"Task",{09/24/2006},{09/26/2006},"B")
h3 = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(h3,"Task",{09/27/2006},{09/29/2006},"C")
' var_Items.ExpandItem(h) = .t.
oG2antt.TemplateDef = "dim var_Items,h"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h
oG2antt.Template = "var_Items.ExpandItem(h) = True"
oG2antt.EndUpdate()
|
|
903
|
What exBarEffort property represents
Dim h1 as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
' var_Chart.PaneWidth(.f.) = 40
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 40"
var_Chart.FirstVisibleDate = {06/09/2005}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramView = 112
var_Chart.HistogramHeight = 164
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = 256 '100 +
var_Bar.HistogramType = 1
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",{06/10/2005},{06/11/2005},,"1/1=<b>100%")
' var_Items.ItemBar(h1,,4) = 18
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,,4) = 18"
h1 = var_Items.AddItem("Task 2")
var_Items.AddBar(h1,"Task",{06/12/2005},{06/14/2005},,"1/2=<b>50%")
' var_Items.ItemBar(h1,,4) = 18
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,,4) = 18"
h1 = var_Items.AddItem("Task 3")
var_Items.AddBar(h1,"Task",{06/15/2005},{06/18/2005},,"1/3=<b>33%")
' var_Items.ItemBar(h1,,4) = 18
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,,4) = 18"
h1 = var_Items.AddItem("Task 4")
var_Items.AddBar(h1,"Task",{06/19/2005},{06/23/2005},,"1/4=<b>25%")
' var_Items.ItemBar(h1,,4) = 18
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,,4) = 18"
h1 = var_Items.AddItem("Task 5")
var_Items.AddBar(h1,"Task",{06/24/2005},{06/29/2005},,"1/5=<b>20%")
' var_Items.ItemBar(h1,,4) = 18
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,,4) = 18"
oG2antt.EndUpdate()
|
|
902
|
Can I display multiple curves in the histogram
Dim h1 as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Bar1 as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.NonworkingDays = 0
' var_Chart.PaneWidth(.f.) = 40
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 40"
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramView = 112
var_Chart.HistogramHeight = 64
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.Color = 16711680
var_Bar.OverlaidType = 1
var_Bar.OverlaidGroup = "Task2"
var_Bar.HistogramCriticalColor = 8388608
var_Bar.HistogramPattern = 512
var_Bar.HistogramType = 1
var_Bar1 = var_Chart.Bars.Copy("Task","Task2")
var_Bar1.Color = 65280
var_Bar1.OverlaidType = 1
var_Bar1.OverlaidGroup = "Task"
var_Bar1.HistogramCriticalColor = 32768
var_Bar1.HistogramPattern = 512
var_Bar1.HistogramType = 1
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task2",{06/22/2005},{06/26/2005},0)
var_Items.AddBar(h1,"Task",{06/21/2005},{06/25/2005},1)
' var_Items.ItemBar(h1,0,21) = 3
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,0,21) = 3"
' var_Items.ItemBar(h1,1,21) = 4
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,1,21) = 4"
h1 = var_Items.AddItem("Task 2")
var_Items.AddBar(h1,"Task2",{06/28/2005},{06/30/2005},0)
var_Items.AddBar(h1,"Task",{06/27/2005},{07/01/2005},1)
' var_Items.ItemBar(h1,0,21) = 4
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,0,21) = 4"
' var_Items.ItemBar(h1,1,21) = 1
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,1,21) = 1"
oG2antt.EndUpdate()
|
|
901
|
How can I use the exBarEffort property
Dim h1 as N
Dim oG2antt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P
oG2antt = topparent:CONTROL_ACTIVEX1.activex
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.NonworkingDays = 0
' var_Chart.PaneWidth(.f.) = 40
oG2antt.TemplateDef = "dim var_Chart"
oG2antt.TemplateDef = var_Chart
oG2antt.Template = "var_Chart.PaneWidth(0) = 40"
var_Chart.FirstVisibleDate = {06/20/2005}
var_Chart.HistogramVisible = .t.
var_Chart.HistogramHeight = 64
var_Chart.HistogramView = 112
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramCriticalColor = 255
var_Bar.HistogramPattern = 512
var_Bar.HistogramType = 1
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",{06/21/2005},{06/25/2005})
' var_Items.ItemBar(h1,"",21) = 4
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,``,21) = 4"
h1 = var_Items.AddItem("Task 2")
var_Items.AddBar(h1,"Task",{06/27/2005},{07/01/2005})
' var_Items.ItemBar(h1,"",21) = 1
oG2antt.TemplateDef = "dim var_Items,h1"
oG2antt.TemplateDef = var_Items
oG2antt.TemplateDef = h1
oG2antt.Template = "var_Items.ItemBar(h1,``,21) = 1"
oG2antt.EndUpdate()
|